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“pot . eal ome ts 
LABEL SOE 00176362CC EX Q/RSCOMMONF1SF ILE S=ELPASO/819005 DISK SERIALJENDe QO /R 
FILE! ELPASU/UB19005 MONDAY 12/27/76 02356 PM Po < 
oii SSE TS BEMDARREP Aco = ge css 00001 DAW ‘Ss 
$SET CARD LIST SINGLE BEND YREF% aI] 
PR ARRA NTRS A PEAS ADEE OE BREA EERE EEERELZELZRELELELEZRLELELEL ELL RLELELEXESS 00003 
BGs cepa Ee Ge e wire 2 % Q0004 
x % 00005 
% * * z 00006 5 
ne ae Re ee ee aie eg Oe eae caOMPILER * % 00007 £700 
% Ce ee ee ee ee ee es #4 00008 
% i 0009 PASCAL 
= ie a ae ated ee ah es % 00010 
% WRITTEN 1975 BY % 00011 
z NaG F,. LANGMYHR, 4 00012 
Sieebee Ghee eee ce &: oo @ (HERTOTRWATT. UNIVERSITY» 4- 00013 
% EDINBURGH. % 00014 
% % 00015 
ets at bs, Safes : % 00016 
LELUSLBLLYLAGBBSABUS VCEEYES LGU EEEELEAEBRABLELGLELERLERL GD EELLELL EDS 00017 
: % 00018 
aes ceria: aw ee ee cer ies tee og Asi fe tad % 00019 
% PART 18 DECLARATIONS, % 00020 
% mo ca my es en am om en me re na tm re % 00021 
2 Bp eth Bea, oie BS De Tee, eh i eS LS % 00022 
% % 00023 
LEEELELLECLLLESYUBLALE EE EEL LERLYL SERB OECRRBBEEEERY BEEF LLELEEL LBAZLK ELL BS 00024 
SS aes cette ett tps ooh: ee ‘ 00025 
% 00026 
BEGIN? 00027 
sae DERINE EDLTIONS ee SUES ce wie: ; : 00028 
INTEGER NUMERRSs % @R+212 NUMBER OF ERRORS IN PROGRAM. 00029 
SAVEF ACTOR» % @Rt22: SAVEFACTOR FOR CODE FILE. 00030 
Sac neate he A eer cha A" vighGs hee EAs, ve >0 CUMPILE TU LIBRARY. 00031 
a =0 COMPILE aND RUN. 00032 
% <Q CUMPILE FUR SYNTAX, 00033 
eee ea nn » CAROCNT GL. _.. .% @R+232. NUMBER OF CARDS READ. 00034 
SS Tite CARD "SOURCE" (29400150)3 % SOURCE cCUDE INPUT FILE 00035 
FILE LINES 1 €2517)3 % PRINT FILE. 00036 
_RLLE.LPASCALGOL DISK. SERTAL £2020U0]. (29102150sSAVE Q)5 & CODE FILE 00037 
DEFINE LINESPERPAGE=58#,% 00038 
Oe aS ea ogee he eae 00039 
Pa etry Leen See Masiedes . £634 ; ; 00040 
eee COMPILER CONSTANTS” ao vOO41 
DEFINE “AXTABLES =50#s ’MAX NUMBER OF NAME TABLES, 00042 
ee MAXNAMES.- 2 997H,.. --- BMAX -NAMES IN EACH TABLE} - 00043 
MAXLEVEL =15is Max DEPTH UF PROCEUURE DECLARATIONS. vod44 
HAXCASES H21lts 2MAX LABELS IN A CASE*STATEMENT. v0045 
a  MAXLABS... © =4008, —- SAX NUMBER OF LABELS. 00046 
HAXPARAMS =200+, @MaX NUMBER OF PARAMETERS 1N WHOLE PROGRAM, C0047 
MAXTYPES =1022;t» HAA NUMBER OF DIFFERENT TYPES. 00048 
MA XCUNSTS. 2002, 0. ASIZE. UF CONSTANT TABLE. 00049 
MAXTEMPS =h i» ZNUMBEK OF EXTRA VANS IN EACH PRUCEDUREs 00050 
MAXWITHSYMS=2508, MAX NUMBER UF SYMBULS USED BY WITH@=STATMS, 00051 
we AX GYMS —. 3R007%, 2. SMAX NUMBER OF SYMBOLS IN ONE EXPRESSIUNs 00052 
LISTLENGTH =38004, MAX LENGTH UF VAR AND PARAM LISTS. 60053 
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if 
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©) 


S) 


: “XTFILES=204» MAK HUMBER OF EXTERNAL FILES, ; 
os Batista LE ge age, Cn dea FILES DECLARED AT ONE TIME. 
] 4AKPNTRS =S5Q#3 SMAX NUMBER OF UNDECLARED POINTERS, 

3 
NA ERP ABLES ott 
ae TAME TARE NMI TANS SWANE TAG A EOe EMAXTABLES? 0! MAXNAMES]3%_ 
DEFINE NAMELENGTH =£41:3674,% 
er IY PE OD ba B- He - 

IDCLASS =Ci23;31]4,% 

VAR s0hst 
ann an CONS TS Bee eee 

FUNC =24a% 

PROC =34%% 
i ee TYPES RB BH 

INFO SC23It11 J #o% 

FORMAL =C24s11]4,.% 

en FORWARD DEF -- SL 252-104, 4% | | 

EXTERNALFILE=(C26:1)#3% 

a 

She Dt Sere OTSPUAT. VECTOR wire ce. Be) eee we Se 
ARRAY OLSPLAYCOTMAXLEVELI34 
DEFINE RECTYPE =[9?10]#-% 

—— a LR STW ETHSY M20 98 Lyle, ¢- —-. - 
LASTWITHSYM =[ 29410] #,% 
NUMPNTRSINWITH=0 353614524 

+ RACKETS ING HRC 362-1 ] #2 ZU. 

NAME TAB =lyos7 )#sy% 

b 
YP ET ABLES — tee 
ARRAY TYPETABL > TYPETAB2yTYPETAB3LO3 LWAXTYPES J a 
DEFINE FORM =CL3t4] 45% 
a NUMERIC 0 Yo 
SYMBOLIC=1#5% 
SUBTYPE =2#s% 
nn MALEN-T PES £33410) bo 8 
CHAR ake 
FLOATING=4#» ~% 
9 AL RA. 2 5 if tye ee 
SET =6Hsa¥ 
SETTYPE sf33:10]#% 
ee — -ROI NERS 37 #2 Y.-H. 
POINTTYPEsC338 LO lhe 
ARRAYS =8#s% 


Se ee SUNK YP Rie £3910 Se ee 
ARRTYPE =£43:10142% 


RECORD =9#»% 
ree ites Pot AOR OT AA a aaa Ol ae oes oh. 
FILES =108,% 
FILETYPEsC33210)] 45% 
ele agai TE RU Ree ges oie ee} 
SIZE =Listi2idss 
STRUCT=(2338] 43% 
Bee INTEGERS NUNIT NRE Poot cet neh es 
% 
Zee PARAMETER TABLE **+ 
ARR AY..PARAMTABLOSMAXPARAMS I 3%. 0. 
DEFINE PARAMNAME =C9!10)%>5% 


: . om 
Ce iF] ee’) 
i 


00054 
00055 
00056 
00057 
v005a 
00059 
00060 
00061 
00062 
00063 
00064 
00065 
UU066 
00067 
00068 
00069 
00070 
00071 
QQ072 
00073 
00074 
00075 
00076 
00077 
00078 
00079 
00080 
00081 
00082 
00083 
00084 
vQ085 
00086 
00087 
00088 
QO0BY 
00090 
0009] 
00092 
00093 
Q0094 
00095 
00096 
00097 
00098 
00099 
00100 
00101 
00102 
00103 
00104 
00105 
00106 
00107 
00108 
vO109 
GO110 


QO 


O) 
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PARAMKIND =C13%4]#2% 
Scie SP ARAME EVES LO It eee ek fe ie 

PARAMTYPE =C33%10]#2% 
PARAMFILE =(€343 oe 

INTEGER NUMPARAMS$ 4 0 oo 

% 

Ze*¥e CONSTANT TABLE xxx 

2 ARRAY CONSTTABLCOMMAXCONSTSI3R.. 2.2 0 
anes NUMCONSTS34 


tee -LASEL..TABLE os 44 02 2 2 Ll... sedate dhe 
ARRAY LABTABLOSMAXLABSI34 
DEFINE LABVAL=C14%151]454% 
pie ee ee ADE Pe SIGs eee eee Gee ete 
INTEGER NUMLABSsFIRSTLANHFS 
% 
te*% TABLES FOR.IZN. AND CHARACTER HANDLING xxx 
ARRAY CHCOTO4» TEXTLO'M1)» STRINGLOFLIIGa 
POINTER GHARPNTs TEXTPQTsTEXTPNTOs*STRINGPNTSS 
_ARRAY.-ICARDLOA9-J 2 LINELg? 16] xLINECOPLO]» ALGOLCARDLOGI3% 
POINTER CARDPNTsLINEPNTa XL INEPN] sALGOLPNTS& 
INTEGER CHARCNT sALGOLCNT»MARGINCNTS& 
ARRAY HEADTEXTLO%10]e--ERRLINELOZ1615% 
INTEGER LINEGNTsPAGECHTSERRINKSS 
% 
aR. XRER-PILE AND -TABLE-—#*% ~~~ 
FILE XREFFILE DISK SERIaL £20: 3000) (2939150)3% 
ARRAY BLOCKTABLOSMAXTABLESI, XREFLINELO?16]; &% 
cee INTEGOR..NUMXREF ¢aNUMBLOCKS3... POINTER XREFPNT32 


& 
4*** OTHER TABLES *«* 
_INTEGERARRAY.VARLISTCO:LISTLENGIHI] +s... 4 TEMPORARY LIST OF VARIABLES« 
INTEGER VARINDEXsFIRSTVARS3 
ARRAY SYMTABLOSMAXSYMS]); %& USED BY "EXPRESSION", 
——— ————-- INT-EGER--NUMSYMS3%..-. -- - wo eee 
ARRAY WITHTABCO; MAXWITHSYMS13 % USED BY “WITHSTAT". 
INTEGER NWITHSYMS3% 
ee ENT EGER: ARRAY: SYMBOL0OS G4 oct te, “ecetees _& USED BY "INSYMBOL", 
INTEGER ARRAY SYMKIND(CO:611; % USED IN ERROR RECOVERY. 


ARRAY PNTRTABL se PNTRTABZ,PNTRTAB3CO2MAXPNTRS13% USED FOR FORWARD POINTERS 
ae LNT EGER -NUMPN TRS 2D 
ARRAY EXTFILETABLO!? MAXEXTFILESI3 % EXTERNAL FILES.» 


INTEGER NUMEXTFILES3% 
wares ARRAY.-ETLETABLOIMAXFILES]3..- . ~~. % FILES IN USE. 
INTEGER NUMFILES3% - 
BOULEAN ARRAY ERR[O:119)3 % RECOROS ERROR MESSAGES.» 
ey St Stee yd, Aenea de 


ge** COMPILE TIME OPTIONS *** 
BOULEAN LISTOPTIONsRESWORDGPTION» CHECKOP T1ONsDUMPOPT ION» XREF OPTIONS & 
———INTEGER.-CARDLENGTH; &. 


aor INTRINSIC TYPES *+% 
INTEGER. INTTYPE»REAL TYPE *ALFATYPEs CHARTYPE*BOOLTYPEsNILTYPE*TEXTTYPES 4 
INPUTFILEsOUTPUTFILEsEMPTYSET#4 
BOULEAN Fear ieee eae 


pee St Be cae 


Ye ee TEMPURARY “VARIABLES wk 


OO144 
Q0112 
00113 
00114 
00115 
00116 
00117 
00118 
OOLL9 
00120 
00121 - 
00122 
00123 
00124 
00125 
00126 
00127 
00128 
00129 
00130 
00131 
00132 
00133 
00134 
00135 
00136 
00137 
00136 
00139 
00140 
QO01441 
00142 
00143 
00144 
00145 
00146 
00147 
00148 
00149 
00150 
00151 
00152 
00153 
00154 
00155 
00156 
00157 
00158 
00159 
00160 
001614 
00462 
00163 
00164 
00165 
00166 
00167 
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INTEGER T1sT2sT3eT4sT5F% 


%**e OTHER VARIABLES **x 


ALPHA USER: % THE USER NUMBER FOUND ON THE USER CARD. 
Pane Rata ge I lite, ERY gece tee eee nea tibet ; 
INTEGER CURLEVEL? % CURRENT PROCEDURE LEVEL. 
TOPLEVELs % TOP LEVEL IN DISPLAY VECTOR« 
wo NUMBEGENS #200 ee NUMBER OF "BEGIN"S IN THE PROGRAM, 
NUMCASES» % NUMBER OF CASESTATEMENTS IN PRUGRAMs 
NUMREPS» % NUMBER OF REPEAT"STATEMENTS IN PROGRAM. 
ee NUMTEMP S89 (oe cece = @ NUMBER OF TEMPORARY VARIABLES IN USE 
CURFUNC> % INDEX OF FUNCTION CURRENTLY COMPILED. 
CURSY» % LAST SYMBOL READ BY SCANNER. 
pe A CURTYPES © + = & TYPE OF ENTITY LAST COMPILED, 
CURHODE» % CURRENT EXPRESSIUN MODE, 
é 


LASTRECS3 
teal eka Amaya xa hs 


LABEL ENDOFINPUT#4 


% 

__-—. FORMAT-NOERRORS. C'NO-ERRORS DETECTED s") 2% 
ERRORS (15s ERRURS DETECTED"/)s% 
ALIS] (%$ SET LIST SINGLE")s% 

ce ee  NOALTST © OMS. RESET LIST") 9% 


LAST RECORD TABLE DEFINED. 


LASTLINE ("3 TERMINATE? END UF PASCAL PROGRAMe") 5% 


TERMMESS (ttxex** END*OF*INPUT 
MON LT-OR--E XPOVR# sREALOVERFLOWS &- 
% 
Zeke SCANNER SYMBOLS ** 
———- DEF INE-——-IDENT-IFIER=145 INTCONSTS2¥e- REALCONST#34>» 
CHARCONST=545 NOTSY=o#> ASTERISK=7#? 


ANDSY=9%>» DIVSY=10#s MUDSY=114 
Ge ae Ned sg -MINUS=,34#s .... ORSY=14#> LOSSYs15#» 
GEQSY=474> GTRSY=184» NEQSY=19%» 
INSY=21%4> LPAR=224> RPARS23#» 
ee es ee RBRACKETS25%5 -DOUBLEDOTS26%, CUMMA=27#» 
DOT=294» ARRQN= 308s COLONS31% 
BEGINSY=334>5 ENDSY=34¢4 >» [FSY=35¢#, 
ee ee ELSESY R378» --- CASESY a 30H. OF SY=39#, 
UNTILSY=414s WHILESYS42#> DOSY=43%>» 
TOSY=458» DONNTOSY=46#2 GUTOSY=47#>» 
toe a a ce PER ESY SHOR «© ARRAY SYSO049 RECORDSYSo14>» 
SETSY=534» CONSTSY=54# VARSY#55# 
WITHSY=S594#> 


FUNCSY=57#, PROCSY=38¢> 
Sean ee ERE _ PACKEDSY#6143% —. 

% 

DEFINE INITIAL=0#» MIDDLE=14¢» TERMINAL #243 % 


DEFINE. NUMBER=04s.. BITPATTERNS 1#54 


$ PAGES 

LULLLLYYEELEBEELEEELELEYBELEEBE SERB ELGG UEEEEEEL EREDAR LES OBBLE LBL AAR AL 
IN Be ea, lad doen “Rneatig 7 ye, Cate Mas 

4 

% 
te ut Eee $a: .. PART 22 .. COMPILER UTILITY ROUTINES. 

¥4 Oy man vee Ad Fe AO OT SD sey od mee HOR km Om ace om ae OR eae EP wre SP on GH OR 

% 
Hola cee Ess othe Se ah ees 


COMPILATION TERMINATED .")4% 


ALF ACONST=4#5% 
SLASH=8#>% 
PLUS=12#5% 
LEQSY=1645% 
EQLSYS20#s% 
LBRACKET=24#9% 
SEMICOLUNS=28#,% 
ASSIGNSYS32#>% 
THENSY= 364% 
REPEATSY= 404% 
FORSYS44#5% 
NILSY=46#s% 
FILESY=52#s% 
LABELSY=56#s% 
PROGRAMSY=60#)% 


ae Ww aR ax BW a axe Bk 


00168 
00169 
v0170 
O0171 
00172 
00173 
00174 
00175 
00176 
00177 
00178 
00179 
00180 
0018) 
00182 
Y0183 
00184 
00185 
00186 
Q0187 
00188 
00189 
00190 
00191 
00192 
00193 
QQ194 
00195 
00196 
00197 
00198 
001499 
00200 
00201 
00202 
Q0203 
00204 
00205 
00206 
00207 
00208 
Q0209 
00210 
O0211 
00212 
00213 
00244 
00215 
00216 
V0217 
00218 
Q0219 
00220 
00221 
00222 
00223 
v0224 
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LEELEEREERELEBE LEE BARBS LBEY HARB E DR OBDERAABE KEL AALAL AMMAR ALDAD ADEE 


iceRute ae OO Aah sla etiatat Ss hou, Way eae 


% 
PRUCEDURE INSYMBOL3 FORWARD % 
PRUCEDURE. WRITEALGOLS .. FORWARD} 4 
PRUCEDURE NEWXREF CNAME1, NAME 22 TABLES DECLI34 
VALUE NAME1s NAME2s TABLEs DECL 3% 
woe REAL NAME Ls NAME 23-% a" % ; 
INTEGER TABLEs% 
BOOLEAN DECL3% 
Spt erseb OR OR WARD Sthec re eae tke” tk eek 
% 
DEFINE NDOIGITS(NI=3 
ees PANS: Oe TE Ne 1 BOSE oe ee: 
IF N<99 THEN 2 ELSE 3 DIGITS#34 
% 
Sehr DEFINE. HEADINGSZ. . : 
BEGIN COMMENT x*x* PRINTS A HEADING UN TOP OF A NEW PAGE, 3% 
PAGECNT:=PAGECNT+13% 
————-—---- — —REPLACE- POINTER CHEADTEXTE*J)2+85. bY PAGECNT FUR NDIGITSCPAGECNT)+% 
WRITE CLINESEPAGEI)3% 
WRITECLINESCOBLJ, 11, READ TET Esa 
ae LENECNT $ eae shite tide ae 
END OF HEADING#; 


DEFINE PRINTLINES | %x*ee PRINTS A SQURCE CODE LINE. 
BEGIN% 
a RERPLACE.-LINEPNT@8 By .CARDCNT FOR. 5 CIGITS$¢@ 
IF LINECNT2,LINESPERPAGE THEN HEADINGS & 
IF RESWORDOPTION THENS 
ats BEGINS. 2 te setter 
WRITE CLINESENG] 014 »XLINEL*]) 30 
WRITECLINESENGI> AGEN eE 
-END3%.. . Ci ies 
WRITECLINESs17LINEC*I 3% 
LINECNT#=LINECNY+13% 
Eocene NEO wae ieee 


4 
DER INE NEWCARD= 00.0.0... 0. ..%%** READS A NEW SUURCE CODE CARD, 
BEGIN 
IF LISTOPTION THEN PRINTLINE#% 
we LL ERRINX?>O. THEN. PREINTERRORS#S. 
READCCARDs 10 ICARDL x) ) LENDOF INPUTI¢% 
CARDPNT*=POINTERCICARDL «123% 
a REPLACE LINEPNT. BY cARDPNT. FUR 10 WORDS» ™ ™ FUR 6 WORDS3% 
REPLACE XLINEPNT BY " ¥ FOR 10 WURDSA% 
CHARCNT?SCARDLENGTH3 % 
tiowcecnstes Je MAR GUNCILT Pad Ope ciecss eauttetS ees 
CARDCNT?=CARDCNT#13 % 
END #3% 
eee ANS 


a 
DEFINE GENCTsN»START)= meee GENERATE A TEXT "T's CONSISTING OF 
SOE GUN a eee Bat ke Pate Se BH MN LETTERS» STARTING AT "START". 
IF ALGOLCNT<N THEN. WRITEALGOLS% 


00225 
00226 
00227 
00228 
O0229 
00230 
00231 
00232 
00233 
00234 
00235 
00236 
00237 


. 00238 


00239 
00240 
QO0Z41 
00242 
V0243 
aod244 
00245 
00246 
OO247 
00248 
Q0249 
00250 
vo2si 
00252 
00253 
00254 
00255 
00256 
00257 
00258 
00259 
00260 
VO264 
00262 
00263 
00264 
00265 
90266 
00267 
00268 
00269 
00270 
00271 
00272 
00273 
Q0274 
00275 
00276 
00277 
00278 
00279 
00280 
00281 
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OC 
a 


TEXTLCO]FHRAT3% _ n re 
-—-— --- REPLACE ALGOLPNIF:ALGOLPNT BY TEXTPNTO+START FOR NSS 
ALGOLCNT? =ALGOLCNT“N3% 


ENDS3% 
I aot eee ee es 
SEeGWE SEND RE NEN Tao & oe ke SEAER ADE AN XALGUL IDENTIFIER. 
BEGINS aS eee SAE USS 
IF ALGOLCNTSNDIG THEN ARITEALGOLS 2 
CHLO]&=L5% 


—--———--—REPLACE.. ALGOLPNT2 ALGOLPNT- BY. CHARPNT FOR 1s NUM FOR NDIG DIGITS#4 


ALGOLCNT*=ALGOLCNT@*NDIG=13% 
END#S% 


oy 
a 


INTEGER NABSeNSIZE3&% 


=, one aia, eer ediatiy pied ae ict POs wks 
DEF INE GENINTCN)= =% 
BEGIN 
——---—---NABS#-=ABSON)3- --EF--N<O- THEN GENC "Ms 175% 
NSIZEtSIF NABSS 9 THEN 4 ELSES 
IF NABSS 999 THEN 3 CLSES 


cee ALR NABSS- --99999 THEN -5 ELSES 
IF NABS$¥9999999 THEN 6 ELSE 123% 

IF ALGOLCNT<NSIZE THEN wRITEALGUL}% 

MOSEPSNS LZESTOSTHEN Te ce eo ; 

CNABS DIV 1000000) FOR 6 DIGITSs% 

Cees ree a ‘ALGGLPMI OY (NAGS MOD 1000000) FOR 6 DIGITS ELSES 

—-REPLACE -ALGOLPNT PAL GOLPWT—-BY. NABS FUK NSIZE LIGITS#% 
ALGOLCNT:=ALGOLCNT@NSIZE3% 

END OF GENINT#3% 


cia aie he a ty os, i tA Sa Aen th,  dagend le eta acd 


PROCEDURE GENREALCX)5% 
AVAL he RE Re 6 cst meeps ies steel as 
BEGIN2 
REAL ABSXs% 
—LNTEGER-BOWERS Vie V2e@2. on. chek eee o 


% 
IF Xef4685]50 THENS 
OPO GU CS aie a etcetera eaakes me 
IF ALGOLCNT<9 THEN wRITEALGOLS% 
each eae. A coueNes SALGOLPNT- BY "+s TEXTPNT FOR 7s "5g = 
ALGOLCNT? =ALGOLCNT“93% 
END ELSE% 
See SB EGG eae See ee ips 


IF ALGOLCNT<22 THEN WRITEALGOL 4 
IF X<O THEN GENC M(t» tata 


Seotctea at AD OM RIND SCM Barat ces tas at ny canalaan suas ae 


IF ABSX>O THEN’ 
BEGINA 


ae oa 5 = 3 WERS=POWER+¢1 ENDS 4S 

wwe WHILE-ABSX2107 -D0--BEGIN.-ABSXS=ABSX/103 POWE ; : 
WHILE ABSx<1@6 DO BEGIN ABSX!#=sABSX*103 POWER: =POWER@1 ENDZ4 
VIitSEnTIERCABSX)3% 


ae ee VO TSE NTI ER COAB SX Sy 1.9.42 000000 224... 


REPLACE ALGOLPNT#aLGOLPNT BY V1 FOR 7 DIGITSs ",%,% 


00282 
00283 
00284 
00285 
00286 
00287 
00288 
00289 
00290 
00291 


. 00292 


00293 
00294 
00295 
00296 
00297 
00298 
00299 
00300 
00301 
00302 
00303 
00304 
00305 
00306 
00307 
00308 
00309 
00310 
00311 
00312 
00313 
00314 
00315 
00316 
00317 
00318 
00319 
00320 
00321 
00322 
00323 
00324 
00325 
00326 
00327 
v0328 
00329 
00330 
00331 
00332 


00333 
00334 
00335 
00336 
00337 
00338 
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O 


V2 FOR 6 DIGITS, "@rs% 


jee A GUL ENT SAL COLON Fe 1573.2 


IF POWER<O THEN GENC TKN e p27 de 
= POWER) 3% 

er ee mm ny Te FOR 2 DIGITS3% 

ALGOLCNTs sALGOLCNT 723% 
END ELSE GENC™O> 197232 
TF-X<0-THEN--GENC")",197)34- 

END 3% 
END OF GENREALSS 


oe ea EE Ce ae Deh at Oe aioe I es i he 


Z 
INTEGER TYPEINDEX32 

SeRLVE NENTIOEA =% 

BEGINS 


——---- TF -NUMTYRES2MAXTYPES.-THEN. BEGIN ERRORC45)3NUMTYPES#=MAXTYPES™20 END; 


TYPEINDEX: =NUMTYPES: SNUMTYPES+#144 
END #3% 


pe Bo easy Gg Bute et es Se a oe oh Dab Dubie ne 


PRUCEDURE WRITEALGOLS gate WRITES A COMPLETED XaLGOL CARD TO 
see RE GUN nce Yeh tidoamon en dhe aes TARE Foes 
REPLACE POINTERCALGQLCARDL91) BY CARDCNT FOR 8 DIGITS3% 
WRITECPASCALGOL » 10s aLGOLCARD( +104 . 
IF DUMPOPTION-THEN WRITE CLINE Ss 10, ALGOLCARDLE*I)5% 
ALGOLPNT?=POINTERCALGOLCARDE*])3 ALGOLCNTSS7134 
REPLACE ALGOLPNT BY " * FOR 9 WURDS#Z 
ies! NDB RSWRTETEACGOLA Be dances. a. x oe 
2 
eee MARGINCLET.TER» NUM2=% aaa 
PoBEGTh C uNE NT 4e* PLACES INFORMATION IN THE MARGIN» 3% 
IF MARGINCNTS116 THENS 
marae aeeiee, Sei enur enien BY TEXTPNT+S FOR 203 
NuM FOR NOIGITS(NUM) 4 4 
neo NARGINCNTS =MARGINCNT+03% . 


END; 
END OF Manel Nie 
seas Ree A ca Dy Sls aie a Beenie ta, Sas io 
eas SKIPCSYMBOL)3 Zg*** SKIP SYMBOLS TO KECOVER FROM ERROR 
_———._-- VALUE.SYMBOLS. INTEGER SyMBOLS &Zax** CONDITION, 
GINS ’ 
i PNHILE CURSYZSYMBOL AND SYMKINDECCURSYJSMIDOLE 00% 
eT CURSY=ERE CORDS YTHENZ-—-.--- 
BEGIN 00 BEGIN [INSYMBOL;«4 
SKIP(99)3% hese 
ene ee  END-UNTIL--CURSYZSEMICOLON AND CURSYFCASESY3S 
END ELSE INSYMBOLs4 
END OF SKIPs% 
_ Farr eter eee Mes aoe et sy, ees Scapa 
4 
PROCEDURE ERRORCERRNUM)3 
—-—---—--- VALUE-ERRNUM3.. INTEGER - = nuaty : 
BEGIN COMMENT *** ARRANGE ERROR INDICATOR. 34 


00339 
00340 
QOO341 
00342 
00343 
00344 
00345 
00346 
VQ347 
00348 
00349 
00350 
00351 
00352 
00353 
00354 
00355 
00356 
00357 
00358 
Q0359 
00360 
00361 
00362 
00363 
00364 
00365 
00366 


- 00367 


00368 
00369 


00370. 


GO03714 
00372 


- 00373 


00374 
QQ375 
00376 
00377 
00378 
00379 
00380 
00384 
00382 
00383 
00384 
00385 
00386 
00387 
00388 
00389 
00390 


00394 


00392 
00393 
00394 
00395 
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C) 


C) 


NUMERRS?=NUMERRS+144% 


poe ERRIERRNUM IGE TRUEGS 


| ERRINX$=MAX CERRINXs CARDLENGTH™2=CHARCNT) 5% 
IF ERRIWXS115 THENS . 
BEG INREPLACE POINTERCERRLINELLI+ERRINX BY "x", 
ERRNUM FOR NOIGITSCERRNUM)3% 
ERRINX?2ERRINX+CIF ERRNUMS 9 THEN 2 ELSES 

es a ae we ee ee IF ERRNUMS99 THEN 3 ELSE 45% 
END END OF ERRORS% 
% 


Ss ee aie ark in piicetes YG. ns 


PROCEDURE PRINTERRORS3 2 
doe COMMENT *#* PRINT ERROR INDICATORSe« 34% 
oe eee ER NOT. -LISTOPTION- THEN-PRINTLINES% 
WRITECLINESsL7»ERRLINEL *1I5% 
LINECNT?=LINECNT+13 9% vets aa 
Se ere oe eee By " " FOR 16 WORDS#% 
ERRINX#=0;3 
EN? OF PRINTERRORS§ 


dee jes mas ate Ries, Weegee ae, aydaites 


DEFINE HASHON) = (N).£35236] MOD MAXNAMESA#3% 
eee Nee Se Pe cians 

INTEGER THISLEVEL> THISTABs THISINDEX# 4 

ALPHA THISILsTNAMES 
ee BOOLEANGEGUNOSE ft & Sbuehot = 


4 
DEFINE SERBS TARE ARIS %**e SEARCH NAME TABLE "TAB™ FOR THE 
sete BGT Neco -hax* . LDENTIFIER JUST READ, 


THISINDEX =HASH(CURNANEL 3% 
TNAME S=NAMETABLLCTABsTHISINDEXI3% 
WHILE. CIF TNAMERCURNAMEL] THEN NAMETAB2LTAB* THISINDEXIJZCURNAME2S 
ELSE TNAMEZO) pO& 
BEGINS . " a 
anne  THISINDEXS RDETHISINDEX=0 THEN MAXNAMES ELSE THISINDEX=132 
TNAME S=NAMETABiC TAB, THISINDEXJ3% 
END3 % 
ied ase CL -FUUND PST NAME ZOPRe a: ace c 
IF XREFGPTION THEN% 
IF FOUND THEN NENXREF CCURNAME1*CURNANE2s TABsFALSE )3 % 
——~--——- END. .)F-. SEARCHT ABH} B- --- 
% 
DEFINE SEARCH= Beek SEARCH ALL TABLES CURRENTLY IN USEe 
ma BEGING eet : 
THISLEVELS=TOPLEVEL413% 
DO REGINZ 
won THISLEVELISTHISLEVEL "133 - 
THISTABS=IF THISLEVELSCURLEVEL THEN THISLEVELS% 
ELSE OISPLAYECTHI SLEVELJ«NAMETABS% 
eee OSEARCHTABCTHISTAB) FS ac 
END UNTIL FOUND OR THISLEVEL=044% 
THISID: END RES TUE STARS ALS ENDEN I 
—————-—---END OF. SEARCH. #34... pada 


& 
% 
———-—-—-DEF INE..NEWNAMECNAMELsNAME2s TAB) =% 
BEGIN &**e ENTER A NEW NAME INTO THE WAME TABLE "TAB", 


0Q396 
00397 
00398 
00399 
00400 
QOO404 
00402 
00403 
00404 
00405 
00406 
00407 
00408 
00409 
00410 
OO414 
00412 
00413 
YO414 
00415 
VO416 
Q0417 
00418 
YO419 
00420 
QO04214 
00422 
00423 
00424 
00425 
00426 
Q0427 
VO428 
00429 
00430 
00431 
00432 
00433 
00434 
00435 
00436 
00437 
00438 
00439 
00440 
O0444 
00442 
Q0443 
00444 
00445 
00446 
QO447 
O0448 
O0449 
00450 
00451 
00452 
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} 
, 


O oO 


() 


° « w uw 


THISINDEXSSHASHCNAMEL 34 


pe eT NAME PENAMETABIELTABsTHISINDEXI 42 


WHILECIF TNAMESNAMEL THEN NAME |AB2C TAB» THISINDEX]¢NAMEZR 
ELSE TNAMEZO) DOS 
ee  BEGING. ales stes Ba Oh oes asec a 
THISINDEX!=1F THISINDEX=0 THEN MAXNAMES ELSE THISINDEX"13% 
TNAME 3 =NAMETABILE TAB, THISINDEXA] 3% 
poe END RBS | 
IF TNAMEZO THEN ERROR(2)3% 
rene ABE Cabo OStabEyS2conne ts 
3 STNDEX]f=N 3 
perenne a Ge HN CR OEE CHANG: NAME2»TABs TRUE) 3% 
END OF NEWNAME #33 


ee a a Le “ 


Sees INITIALIZATION **% 


Lake Ka KK KKK KKK KHER 


PROCEDURE INITIALIZES 
mena BEG EN mee sth apie 
INTEGER T1sT333_ 
ALPHA A5% 


aL SY MK INO DA WITH 28CMIDDLE) » TERMINALS 4 (MIDDLE Ds INITIAL» TERMINAL» 


INITIAL» MIDDLE» TERMINALS INITIALS MIDDLEsINITIAL»s TERMINALS INITIALS 4 
BYODLE TAT UTADA SCE OOLE ea ACANAOO CR ech AT beat eupee® 
Ste eee CENET DAL) eM IDDLES& - 


: FILL SYMBOLEL*] WITH 10(60)20»ARRUWs Os COLUNs GIRSY+GEQSYsPLUS29(0)s4% 
DOT LBRACKET + ANDSY* LPAROLSSSY *ARRUW2099(0) 209 ASTERISKS MINUS 9% 
RPARs SEMICULONsLEQSYs 02 SLASH O(0) »COMMAs Os NEQSY*EQLSYsRBRACKET 24 
ero nor Foals 
Roeper daeawaatiny Cavanale so ae tats ee A newt 
LINEPNT “S=POINTERCLINEL1I)3% 
NEPNT?=POINTERCXLINE(1I))34 
Lesh rl PEL ACE CiNeeNiee 608 fs " FOR 16 WORDS34 
REPLACE XLINEPNT#8 pY " " FOR 11 WORDS3% ; . 
REPLACE POINTERCERRL INEL*]) BY “xxx , © FOR 16 WORDS3& 
we ee ALGOLPNTSPOENTERCALGOLCARDE* 105 ALGOLCNT#= (13 4 
REPLACE ALGOLPNT BY ™ " FOR Y WURDSIS 
CHARPNT?=POINTERCCHL 41)+73% ; ; 
cee TEX TPNT I SPOINTERCTEXTC* 22 442. TEXTPNTOSSTEXTPNIM 134 
REPLACE TEXTPNT BY * " a ae 
STRINGPNT?=POINTERCSTRIWGLe])54 ; ; ; 
ee REPLACE POINTERCHEADTEXrC*4#]) BY" " FUR 10 WORDS» "PAGE ; "3% 
REPLACE POINTERCHEADTEXTE*]) BY “PASCALC™, EDITION, ")/8"5700"5% 
TEXTCOIS=TIMEC5S) 3% ; : 
Pei ttt REPLACE..POINTERCHEADTEXT(C*]) +45. BY. TEXTPNT+3 FOR 29 "/"9% 
TEXTPNT#1 FOR 25 "/%» TEXTPNT+5 FOR 25% 
T TIMEC1)/360034 ; 
REL ACE POINTER CHEADTEXT (4 1)457 BY (T1 DIV 60) FOR 2 DIGITS» "85% 
ENTIERCT1 MOD 60) FOR 2 DIGITS+% 
HEADING;% 
nn 2 siSes BERG aac aie 
Hee INITIALIZE INTRINSIC TYPES» CONSTANTS ETCa ***% 
% 


aN LYPES STSIS RL : ye ek eee aa 
TLISNUMERIC Tie SIZE! a1 ae STRUCTI= 3% ; 
tee paett ia © Tis TYPE TAB2C1 IS ="MAKINTS “TYPETAB3C1J4=MAXINTIR 

NEW NAME CZ INTEGE™ OU RM ODD T3Z~IDCLASSS=TYPES+44 
NAMETAB3CLOsTHISINDEXI2=735% 


00453 
Q0454 
00455 
Q0456 
00457 
00458 
Q0459 
00460 
00461 
00462 
00463 
00464 
00465 
00466 
00467 
00468 
00469 
00470 
00474 
Q0472 
00473 
00474 
00475 
00476 
OO477 


Q0478- 


00479 
00480 
00481 
00482 
00483 


. 90484 


00485 
00486 
00487 
00488 
00489 


.Q0490 


OQ494 
00492 
00493 
00494 
00495 


00496. 


00497 
00498 
00499 
00500 
00501 
00502 
00503 
00504 


00505. 


00506 
00507 
00508 
00509 
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REALTYPE#=T3%=235 Sere “REAL" ax 


peta a PORMIAFLOATINGS22- TYPE TAdL COISaTL Sx 


NEWNAME CT4OQOQOREAL%20,0)3 ee IOCLASSIFRTYPES3 % 
NAMETABS3COsTHISINDEY]3=7 33% 

AL FAY PE 2-3 7.3 8 35--- ~~ -- be kke NALP AN tax 
TLeFORMIE=ALFA; TYPETABLL3I3 =TL34 
NEWNAMEC"4QOALFA™NSO0,0)3 T3,IDCLASS#=TYPES3 4% 

oN AMETAB SE O2 THIES-INDE x18 = 33 %--- --—--- 


BOOLTYPES=T3%=4;5 aeee “BOULEANT xax 
T1leFORMS=SYMBOLIC$S TYPETABIC4IIFRTIS TYPETAB 3041] 2=132% 


NEW NAME CE7BOOLE A ot N M2 0) I—-T3,TUCLASSS=TYPES#% 
NAMETAB3CO*THISINDEX] 8=134% 
CHARTYPE 2 ST3%=53 Bxk*e NCHARY kik 
+ Tg FORMS CHARS --TYPETABLISTS=S7b-14.. TYPETAB3(S12=035% 
NEWNAMEC’4O0CHAR"S0,0)3 T32IDCLASSS=TYPES3&% 
NAMETAB3CO*THISINDEXI2=735% 


ESS BOOL TYPES T3--I DN CLASSFHCONST SG. Bree “PALSE™ kam 
NEWNAME C™SOFALSE™s0,0)% NAMETAS3COsTHISINDEXIJS=T332 


Le ae pamee Skee NTRUEN wee 
———NEWNAME-C"'400-TRUEMs 0,0)3- -NAMETAK3£ Or THISINDEX 1227332 

NUMTYPES#= 

NILTYPReS~15 
——EMP TY SE Tte"23 — ——- 


T3eIDCLASS*=CONST3 PSN =1O0243% 
~~ —-NAMETAB 3COs THES INDEX 1357-33 %- ---- 
NUMCONSTS3=43 CONSTTABLAI: =MAXINT3% 
a 
~—- —J-3-2.205..--T.3-TDCLASS!=PRUC3. 


A‘ee TYPE OF YNIL" 
ose - . Skee TYPE OF [] wax 
NEWNAME C"OMAXINT"»0, 05 “Tat =INITYPES meee MMAXINTT 


‘Leek PROCEDURES *#x 


kak 


kek 


FOR At="3000GET"» "3000NEW"S "4GOOPACK™, "4OUPAGE"» "3000PUT'S&S 


"4OOREAD'» rehioans "SORESET"s "6UNPACK's "SOWRITE" DOK 


ee ee ERE GUN Gt ssce nc aie SS 
NEWNAME(CAs030)3. NAMETAB3LO*THISINDEX] aT3s4 
ENDZ4 


——-————__----NEWNAME CC! 70 7SPOS!"s"6%520)3. NAMETABSCO*THISINDEXIJ2=T33% 
NEWNAMEC™7REWRIT's "6% 0)3 NAMETAB3COsTHISINDEXI3 ae 


NEWNAMEC™7WRITELs"N%20)3 NAMETABICOsTHISINDEX]$ 


Pee Sa te stl AN eA oe Ee cee Sai tie See 


T3.IOCLASS*S=FUNCS 


3% 


aoe FUNCTIUNS «** 


FOR At="3000ABS"s "GARCTAN',» "3000CHR"s "3000COS"s "3Z000EUF "ss 
$e NHOOE OLN S- "3000EXPIts- "2V000LN, "3000000" "4OOPRED"s% 
"4OOSUCC™» "SORDUND» "3000SINs "3000SQR"s "4OOSQRT"s 

"SOTRUNC'™s "SCONCAT"s "4OUTIME"s "4OODATE"» “GLOTIMES% 


-— a HOOUSER Ms "Z000QRDME.. 0... 
DO BEGINS 
NEWNAME(As020)3 NAMETAB3C 0» THISINDEX]#5133% 
secre PeN [Df x ae Sa ee eh ae ae oi clean 
NEWNAMEC"7ELAPSE"s "5073 NAMETAS3£OpTHISINUEXI is 
NEWNAME ("7WEEKDA"» meee NAME TAB3CO»+THISINDEXIt= 
yo eee a Se eevee es Bh saashest Set : : ? 
TEXTTYPESST3=NUMTYPES!SNUMTYPES4L3 Skee "TEXT! tee 
T1 $= TEXTFILES 71 STRUCT t= 13 TYPETABLCTEXTTYPE] 
T36TDCLASS--15.-TYPES$.-% 
NEWNAME ("GOOTEXT"»0, ve NAMETAS3(O»THISINOEXJ#=733% 
T3E=TEXTTYPES T3eIDCLASS#=VAR3 Beek WINPUTY wee 
9-3 EXTERNAL FIL ESSA ee ee 
NEWNAMEC"SOINPUT"s0,0)3 INPUTFILES=THISINDEXS& 


t 
734% 


Tis 


4 


00540 
OU514 
v0512 
00513 
00514 
00515 
00516 
00517 
00518 
00519 
00520 
005214 
00522 
00523 
Q0524 
00525 
00526 
00527 
005238 
00529 
00530 
00531 
00532 
00533 
00534 
00535 
00536 
00537 
00538 
00539 
00540 
00544 
00542 
00543 
00544 
00545 
V0546 
Q0547 
00548 
00549 
00550 
00551 
00552 


- 00553 


00554 
00555 
00556 
00557 
00558 
Q0559 
00560 
00561 
00562 
00563 
00564 
00565 
00566 


oa. 
{ \ 
ma 


O 


C 


a 


{ 


O 
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NAMETABSCOsTHISINDE XI] %=T33% : 
j———_———-—-NEWNAME C60 UTPUT"2 0,0.) 5—--- ; (Baw MOUTPUTN He 
| NAMETAB3LCOsTHISINOEx]3=T33 JUTPUTFILES=THISINDEX33 

END OF INTIALIZEs% 

% Gets N jeter NS oN ed | OR ied, Pree cee, lnk Bes 
% 

% 

% kee XRER ROUTINES. tak 00 ee 


Ek KEK KK KKK KKK EEK 


% 
—-—__-_DEF-INE--XREFCARDSC16247] 49%... 0 2. 
XREFBLOCK=(26210]#3% 
REAL AOsBOsA1sB1ieLASTAOsLASTA1L3 % 
So IMIEGER NES CASTBL ORK HAZ AXA 2: 


PROCEDURE NEWXREF CNAMEL, eee ree ee a 
V-ALUE-NAMELsNAME2s TABLE ,DECI 3% ..-.--.- 
REAL NAME1»NAME2;% 
INTEGER TABLEs% 
ies a ROURBANL DEUS Sane se em Qe Be 
BEGIN? 
NLS=NAMEL -NAMELENGTHS4% 
eT NLS OTH ENNAME DS SORNAMELCALI4ALS OISNAMELLC S93 6OxNL@1EOxXNLIZ 
ELSE NAME2?sO8NAMEQSL S52 OX( NUE) @LI6XONL “615% 
AX#=CAROCNT3 AX.XREFBLOCKS=3LOCKTASLTABLEI54 
LP DE CL. THEN. AX 3 SAX @#1LO00000000005%. 
WRITECXREFFILEs *+NAMELPNAME D2 AX)3% 
ENO OF NEWXREF3 4% 
a aT acl ra eek ne a 2 Oe ey tt ee Be 
PROCEDURE XREFMAXCA)3 
ARRAY A[LO]3% 


ete PEGGING eee ee ae eee a 


ACOJ$="AZZZZZZ2"3 AC LI$="ZZZZZL"3_ ALZ1#=99999999995% 
END OF XREFMAX3% 


fe ee a Od ad Salk eg 


% 

BOOLEAN PROCEDURE POE aN Rese anes 
———-—-—___ARRAY.--A 9 B.£0]3.2.. led 

EINE . 

t=ALO]3 peeves ALPSAC1]3 BLi=BlLI;Z4 
2 COMPARE. 
xRE CC {35:3 avers (355 236] THEN. AQ. (35% 361<p0,(353 36) ELSES 
IF Alz#b1 THEN A1<B1 ELSE 
a. AOA BO THEN. AO eNAMELENGTH<BOeNAMELENGTH ELSE 
AC2] LEQ eaten 

END OF SEEGER AE? 
Beer nels es BN rant Ne ney eyelet Sneha ahead, oy 

% 

PRUCEDURE PRINTXREFCFINTSsA)44% 
———-----— VALUE --FINLS§—-BOOLEAN FINIS;% 

ARRAY ALOQI3% 

BEGIN 
Sea LN EN eso SG ee eee 

BEGIN4 
AR ey NO ee AR ERE AUB Cedars 
Jota ee et OT USE ALINESIGA . 
CLOSECXREFFILE)3% 


00567 
00568 
00569 
00570 
00571 
00572 
00573 
QO574 
00575 
00576 


00577 - 


00578 
00579 
00580 
00581 
00582 
00583 
00584 
00585 
00586 
00587 
00588 
00589 
00590 
00594 
00592 
00593 
00594 
00595 
00596 
00597 


_ 00598 . 


00599 
00600 
006014 
00602 
00603 
00604 
00605 
00606 
00607 
00608 
00609 
00610 
YO0614 
Q0612 
00613 
00614 
00615 
00616 
00617 
006418 
00619 
00620 
C0621 
00622 
00623 


” 
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© 
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e 


A lara eerie wet tete et s 


we 


ENDS 


-ELSE% 


BEGINa 
AQS=ALO]5 ALi=AL1]3 A2izA[2ls% 


-— IP. AO=LASTAO-AND. ALSLASTAL. AND A2sXREFBLOCK=LASTBLUCK THEN? 


BEGINA 
IF NUMXREFe&1i5 THEN? 


ee BEGINS 


WRITECLINESs 179 XREFLINEL*I)3 LINECNT#=LINECNT +134 
IF LINECNTS>LINESPERPAGE THEN ene ‘a 
sone =XREPPNTSSPOINTERCXREFLINEC*J])4 NUMXREF $=03 ; ; 
REPLACE XREFPNT By " " FOR 17 WORDS XREFPNTSSXREFPNT+243% 
ENDs% : re 
REPLACE XREFPNT BY A@eXREFCARD FOR 5 DIGITS#% 
XREFPNTS=XREFPNT+75 NUMXREF S=NUMXREF +144 
END ELSES 


TF AKO -THENS 


BEGINS 
A2:FA2+ {1 Q00C000Q000 5% 


---) WRITECLINE Ss L7oXREFLINEC*I)4 LINECNTSSLINECNT+14% 


IF LINECNT>LINESPERPAGE THEN HEADINGS% 

XREFPNT f=POINTERCXREFLINEL*J)3  NUNXREF S=03% 
REPLACE. XREFPNT BY." " FOR 47 NORDS 3 

TEXTLO]!=A0,035:3633 LASTAC?=A03 

REPLACE XREFPNT BY TEXTPNT#L F FUR AQ +NAMELENGTH3 & 


Bigs See STE PCOS tRLAS TALAS ATER 2 cos 


IF AO.NAMELENGTH>6 THEN ee 
REPLACE XREFPNT+6 BY TEXTPNT+1 FUR AOseNAMELENGTH™633 


pe | REPLACE. XREFPNT417- BY. Ale XREFCARD FOR 5 DIGITS3Y 


END 
3 


XREFPNTS=XREFPNT+243 LASTBLUCK?5A2.XREFBLUCKS2 
END ZS 
ENDG8. ..- .. 
OF PRINTXREF3% 


pee Piaget a ke 8 nt ce 


ys 


INTEGER TTleTT2eFioFeslysRiza 
iy Seat ce in daha ees tt 


DEFINE CHECKTYPES(LEFTTYPEsRIGHTTYPEJ=% 


BEG] 


B82 one MP SSE YP ea 


NR ; 
IF--LEFTTYPE>O AND-RIGHT-TYPE>0O.THENS 
IF LEFTTYPEAZRIGHTTYPE THENS 

BEGIN& 


-— LTPSLEFTTYPES ~~ - - RT4SRIGHTTYPESS 


TTIS=1YPETABLELTI;  TT2:sTYPETABICRTIs% 
FLtSTTL FORMS aa, 
IF. LIZREALTYPE OR-R2¢NUMERIC | 
IFCFIZSET AND LT#EMPTYSETIURCE2#SET AND RT#ENPTYSET )THENS 
IFCFIZPOLNTERS AND LTZNILTYPEJORCFEZPUINTERS AND RTZNILTYPE) THENS 
- BEGIW2... 
IF FISSET AND FasSET THENS 
BEGINS 
RTSSTT2,SETTYPESS | 
TILP=TYPETABLcCLT];  T122=TYPETABICRTI#% 
FLt=TT1.FURMS F2ssT12,.FOURMS2 


aa ee ee END KE 


IF FL=POINTERS AND F2=POINTERS THENS 


00624 
Y0625 
00626 
00627 
00628 
00629 
00630 
00631 
00632 
00633 
00634 
00635 
00636 
00637 
00638 
00639 
00640 
00641 
00642 
00643 
00644 
00645 
0Q646 
00647 
0064& 
00649 
00650 
00651 
00652 
00653 
00654 
00655 
90656 
00657 
00658 
00659 
00660 
00661 
00662 
00663 
00664 
00665 
00666 
00667 
00668 
00669 
00670 
00671 
00672 
00673 
00674 
00675 
00676 
00677 
00678 
00679 
00680 
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JENDGS <2 ee Ceuta teed. & ee, 


BEGINS ee 

--LTPST Ti POINTTYPES.. RTE=TT2.PUINTTYPE SS 
TTIS=TYPETABICL TI; TT22=TYPETABICRTI44 
FLs=TTL.FORMs F2ssT 


T2eFQRM3% 


WHILE Fi=SUBTYPE DO% . 
BEGIN LTSSTTLeNAINTYPES TTLE=TYPETABICLTI3 


_ WHILE-F 255UBTYPE- DOUZ 


BEGIN RTt=TT2eMAINTYPES TTEet=TYPETABICRTI: 
IF LT>O AND RT?0 THENS 


-TR.LTZRT THENS.. 


IF Fi#NUMERTC OR “F2x¢NUMERIC THEN! 
IF FI¢CHAR OR Raeen ns THEN ERRORC17)3% 


seeded’ ele NOS Baa 
ENDs4% 


y 


END OF ci aca 


ne rn te te Heat 


% 


INTEGER FILENAMES % 


é rer i 
DEFINE FILEPARAMCDEFAULTFILE)=%*** CHECKS THE FIRST 


ian ot BEGINS eee IF IT 1S A FILES 


_-BOOLEAN -LPARFOUNOS% - Bo eines 


INSYMBOL3 FILENAME: =CURTYPES=0%4 
LPARFOUND? =CURSY=LPARs& 
we EEL PARFOUND -THENZ © -- 
BEGINS 
INSYMBOL 3% 
ce eee TFA CURSYSIDENTIFIER THENS - 
BEGINZ 


SEARCH % 


oe Siete oem the POUND) THE Nee etaso ees 


BEGINS 
IF THISID.sIDCLASS=VAR THENS 
= BEGING ca a: mee 
CURTYPE?=THISID.TYPES2 . 
IF TYPETABICCURTYPE)«FORM2FILES THENS 


Lene BEGING-- -. a 


FILENAME! =LO00XTHISLEVELtIHI SINDEX#3 
INSYMBOL3 & 


eee PRDEND: END: ENDS eae: 
IF SYMKINDCCURSYJ=TERMINAL THEN EKRUR(46)3% 
ENDs% ; 
aE LENAME SO. THEN FILENAMES S0EF AULTFILE 
IF (FILENAMESINPUTFILE AND NOT INBUOECL) ORS 


Saeere ye Tere aye ene ge 


: 


wate NIE GER ALP ORME Ok <2. tees Blk oe 
BOOLEAN SIGNEDsNEGATIVE;% 
& 


DEEINECONSTANT.CCVAL aCTYRE Jae) 2 cece 


BEGIN 


FLssTTieFORM ENDS 


F2:=TT2eFORM ENDS 


PARAMETER TO SEE 


CFILENAME= pals aa AND NOT conn ae THEN ERROR(96)3% 


Aeex <CONSTANT? 4% 


LREKAKKKRKAKERKKKHRKRAE 


IF CURSY=MINUS OR CURSY=PLUS THENS © ‘ae 
_ BEGIN. SIGNEDI=TRUES NEGATIVES SCURSYSMINUS3% 


INSYMBOL3% 


00681 
00682 
00683 
00684 
00685 
00686 
00687 
00688 
00689 
00690 
00691 
00692 
00693 
00694 
00695 
00696 
00697 
00698 
00699 
00700 
007014 
00702 
00703 
00704 
00705 
00706 
00707 
00708 
00709 
00710 
QO71L4 
00712 
00713 
00714 
00715 
00716 
00717 
00718 
00719 
00720 
vo724 
00722 
v0723 
OO7e24 
00725 
00726 
00727 
00728 
00729 
00730 
00731 
00732 
00733 
00734 
00735 
00736 
00737 


Cy 


1412T 


i 
C3 
Sol 


} 


7 


*. 


) 
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Mc 


0 


C) 


END ELSE SIGNED =NEGATIVEt=FALSES % 
jon IR -CURSYSINTCONST. THENS — 
BEGIN CTYPES=INTTYPES% 
CVALt=IF NEGATIVE THEN “CURVAL ELSE CURVALES 
oe PEND SEL OF Nite deta : 
IF CURSY=CHARCONST THENS. 
BEGIN IF SIGNED THEN ERROR(29)34 
CTYPE SS CHARTYPES. -CVALS = CURVALSS 
END ELSES 
IF CURSY=REALCONST THEN 
oe BEGINGCTYRESEREALTV DET. coss, 
CVALt=IF NEGATIVE THEN “CURVAL ELSE CUKVALs% 
END ELSES 
ae ST CURSYSALPACUNST- THENY Se: aase © 
BEGIN IF SIGNED THEN ERROR(29)3%. 


IF CURLENGTH>7 THEN ERRORC41)3% 
—— C-TYPE FS ALFATYPES —-CVAL #sCURVAL3% 
END ELSE% 
IF CURSY= IDENTIFIER THEN% 
BEG ING Ha ee 
SEARCHS % 
IF FOUND THENS 
BE GENS 
IF THISTD*IDCLASS=CONST AND NUT BUULEANCTAISIDeFORMAL) THEN 
BEGINS 
shaders ST TPPET ABI THIS UH AVRCLSFURNEALEA THENS 
BEGIN 


CVALt=THISIDs INFOS 
TEVA 102 3-- THEN -CVAL# SCONSTTABLCVAL=102313% 
CTYPES=THISTDsTYPESS 
IF SIGNED THEN 
irate GA Nba cotta eee eae ae 
TFORMS=TYPETABLLTHISID. TYPE] 6FORMSA 


IF TFORMZNUMERIC AND TFURMZF LOATING THEN ERROR( 29) ELSES 


woe ee LR NEGA PIVE-—THEN -CVALS="*CVALIS 
ENDs4 
END ELSE BEGIN ERROR(48)% CVALS=SCTYPE3=0 ENDSY 
————------------E ND. ELSE--BEGIN-ERRORC.32)35.CVALESCTYPEtsQ ENDS 
END ELSE BEGIN ERRORC1)5 CVALESCTYPESS0 ENDS 
END ELSE BEGIN ERROR(32)% CVAL? Sees END#2 
TN SYM BOGS Bele cnc ee es area Ay 
END OF CONSTANT#3% 
$ PAGES 


BEER EEEBSREEELEREBEBLELLEBEELLLYE EEL EEELEE REL EERE EGS ERE EL ELULECELEULELBSES 


% 
a 


BO a eet AE SN Te ahd ta eee oe a es 


4 PART 33 THE SCANNER» 


% PO pa ng 9 om OE CH gy om oe Oe 


% 
INTERNAL INTERNAL SYMBOL 
eis Bee 8 PDO abe RI MBERiend 2 NAME - KIND 


BEEEERELEELELELGERLALLEY ELEY EEL YS EERARLEBBLLEEEXLHE ELBE ELL ELE LE SRE ELLER DS 


A 
a 
& 


’ 
’ 
4’ 
& 
A 
a 


00738 
00739 
00740 
OO741 
00742 
00743 
00744 
VO745 
00746 
00747 


00748. 


uo749 
00750 
00754 
00752 
00753 


. 00754 


00755 
00756 
00757 
00758 
00759 
00760 
00761 
00762 
00763 
00764 
00765 
00766 
00767 
00768 
QQO769 
00770 
007714 
00772 
00773 
00774 
Q0775 
00776 
00777 


00778 


O0779 
00780 
00781 
00782 
00783 
00784 
00785 
00786 
00787 
00788 
00789 


.90790 


VO791 
007928 


00793. 


00794 


O) 


y412T 
oot 


4 


} 


asa 


~, 


(2 


C) 
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O 


O 


, 
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% IDENTIFIER 1 
gS a ee ee OD oa ees oe de Geet ee 
% 2.5 3 
% " A 3) C D i] 4 
carro, 4 UL | ane ec oS etvacen 
% NOT 6 
¥ 4 * 7 
i I et Rak ak I a de ls Sn oe 
& & AND 9 
% DIV 10 
ee Se I ee ee EM) eee ee ees oe ee 
% + 12 
4 - 13 
ee Pot OO Rie ea Mee A 
% < LSs 45 
% <s LE@ $ 16 
a ne ee GE 2-7 - 
yA > GTR 18 
4 <> NEQ z 19 
ok ee tees oe Qletor else OD) £ 
4 IN al 
a ¢ 22 
pi tN LS iy YE eas Sande ea oh cee p23. 
4 fe 24 
a ] 25 
ER RES ee Ea Ea Sn og pis Mek th 
a , 27 
% ; 28 
Sa ee ae thal Ohad ad ob Pe aah ts ae eS - 29 
% ¢ @ 
a ‘ 31 
Memo tat od eG Rs cet ela ie _.32 
4 BEGIN 33 
% END 34 
eee ee ee tices Seog Rot eae peer foe 
% THEN 36 
4 ELSE 37 
gee es CASE BEA a 38. 
% OF 39 
% REPEAT 40 
tl co Io SS . UNTIL - 41 
% WHILE 42 
’ DQ 43 
See ts  Pieeete FOR 44 
% TO 40 
a DOWNTO 46 
eet Oe GOTO: 
4 NTL 48 
% TYPE 
StS hE ee ARRAYS ee eats .-50 
¥ 3 RECORD 51 
a FILE 52 
7 ako Semes SET x = 93. 
ys CONST 54 
% VAR 5 
See Shee ee ee SO ARE z ~- -5d 
% FUNCTION 57 


IDENTIFIER 


-INTCUNST 


REAL CONST 
ALFACONST 


- CHARCONST.. .. 


NOTSY 
ASTERISK 


SLASH 


ANDSY 
DIVSY 
MOOSY 
PLUS 

MINUS 


QRSY 


LSSSY 
LEQsSy 


- GEQSY 


GTRSY 
NEQSY 


-LQLSY 


INSY 

LPAR 

RPAR 
LBRACKET 
RBRACKET 
DOUBLEDOT 
COMMA 
SEMICOLON 
pot . 
ARROW 
COLON 
ASSIGNSY 
BEGINSY 
ENDSY 


IFSY 


THENSY 
ELSESY 
CASESY . 
OF SY 
REPEATSY 
UNTILSY 
WHILESY 
DOSY 
FOURSY 
TOSY 
DOWNTOSY 
GOTUSY 
NILSY 
TYPESY 
ARRAYSY 
RECORDSY 
FILESY 
SETSY 
CONSTSY 
VARSY 
LABELSY 
FUNCSY 


MIDDLE 
MIDDLE 
MIDOLE 
MIODLE 
MIOODLE 
MIDOLE 
MIDDLE 
MIDOLE 
MIODLE 
MIDDLE 
MIDDLE 
MIDOLE 
MIDDLE 
MIDDLE 
MIDOLE 
MIDOLE 
MIDDLE 
MIDDLE 
MIDDLE 
MIDOLE 
MIDDLE 
MIDDLE 
MIDDLE 
MIUDLE 
MIOOLE 
MIDDLE 
MIOOLE 
TERMINAL 
MIODLE 
MIODLE 
MIDOLE 
MIDDLE 
INITIAL 
TERMINAL 
INITIAL 
MIDOLE 
TERMINAL 
INITIAL 
MIDDLE 
INITIAL 
TERMINAL 
INITIAL 
MIODLE 
INITIAL 
MIDDLE 
MIODLE 
INITIAL 
MIDOLE 
INITIAL 
MIDOLE 
MIDOLE 
MIDDLE 
MIDDLE 
INITIAL 
INITIAL 
INITIAL 
INITIAL 


00795 
00796. 
00797 
00798 


QQ799 .. 


00800 
QO801 


- 00802 


00803 
00804 
00805 
00806 
00807 
00808 


00809 
00810 


-00811 


00812 
00813 
00814 
00815 
00816 
00817 
00818 
00819 


. 00820 


00824 
00822 


.. 00823 


V0824 
00825 
00826 
00627 
00828 
00829 
00830 
00831 
00832 
00833 
00834 


00835 


00836 
00837 
00838 
00839 
00840 
O0844 
00842 
00843 
OOBA4 
00845 
00846 
00847 
G0848 
00849 
00850 
00851 


C) 


O 


3 


~*~ 


() 
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PROCEDURE 58 PROCSY 
WITH. coke & de 6 “SRS _ WITHSY 
PROGRAM 460 PROGRAMSY 


PACKED él PACKEDSY 


See ee ee mead, WE + oe Be 


% 
DEFINE BLANK=48#s EQUAL=61%, QUOTES#=934, DOLLARS Hot e% 


LETTER CC) SC175C AND -CS25)URCSISC AND CS$41)0RC50SC AND CS57)#s% 
ALFANUMCCISCLETTER(C) OR CS9IFFE 


% 


RE AL- CURVAL3% - - -—-- 
ALPHA CURNAME 1s CURNAME2,CsCx3% 
INTEGER CURLENGTHs LASTCHARPOS: & 
ee BOULEAN-FINISS% — - = 


r 


DEFINE NEXTCHAR=&% 7 
BEGIN COMMENT *** READ. NEXT CHARACTER. *** G8 


IF CHARCNT=0 THEN Cs=BLANK ELSE’ 
BEGINS 


END END 
fh ie a a dense og 


4 
4 


eee CHARPNT - bo CARDPNT #CARDPNT FOR 14% 


=CHLO]3 CHARCNTi=CHARCNT~13% 
235 


_. -PRUCEDURE--LNSYMBOL3% -—-— 
BEGIN COMMENT *** READS THE NEXT SYMBOL. #433 
INTEGER SCALEsEXP3% 
BOOLEAN NEGEXPS%-- dem aids 
LABEL START» OVERFLOWS % 


a 


het ee PAR TA8 Be 


IF 


BEGIN SCAN CARDPNT&CARDPNT FOR CHARC 


=BLANK THENS 


INITIAL 
INITIAL 
INITIAL 
MIDDLE 


NT#CHARCNT WHILE =" "3% 


IF CHARCNT=0O THEN..BEGIN WEWCARDS GO TO START ENDS 


NEXTCHAR#4 


END} 2 
sameneoieun vd PLETTERCOIA THENS 24 
BEGINS 


CURLENGTHi=13 CORMAN ETS C3} CURNAME22=03% 


- NEXTCHAR#&% 


WHILE ALF ANUMCC) AND CURLENGTH<6 DUS 
BEGIN CURNAME1%=C&CURNAMELL 35229230152 
CURLENGTH:SCURLENGTH+1L4 NEXTCHAR#4 

ENOD3% 

IF CURLENGTH=6 THEN 

BEGINS 

WHILE “ALF ANYMCC) AND CUKLENGTH<12 0U% 

BEGIN CURNAME2$=C&CURNAME2L35+#297330)54% 

- .. jCURLENGTHSSCURLENGTH+13 = NEXTCHARSS 
END3% 
WHILE ALF ANUMCC) 00 NEXTCHARs& 

ENDs% 

CURNAME1e NAMELENGTH: P=CURLENGIM3 & 

CASE CURLENGTH oF4% 


. BEGIN. 3%. 


CURSY!=IDENTIFIERS & 


00852 
00853 
00854 
00855 
00856 
00857 
00858 


00859. 


00860 
008661 
00862 
00863 
00864 
00865 
00866 
00867 
00868 
00869 
00870 
00871 
00872 
00873 
Q0874 
00875 
00876 
00877 
00878 
00879 
00880 
00881 
00882 
00883 
00884 
00685 
00886 
00887 
00888 
00889 
00890 
QOB94 
00892 
00893 
00894 
00895 
00896 
00897 
00898 
00899 
00900 
00901 
00902 
00903 
00904 
00905 
00906 
00907 
00908 


) 


Cc) 


a 


S 


} 


“ 
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pss 
‘ 


R CURNAMEL="2Q00001F" THEN IFSY ELSES 
re no Te. cGnnaNe. Sho oboonns THEN OOSY ELSES 
ao IF CURNAME1="20000TU" THEN TOSY ELSES 
| IF CURNANE1="20000UR" THEN ORSY ELSES 
wees TF CURNAMELS"20000UF" THEN OFSY ELSES ' 
—_—_— IF CURNAME1="200001N" THEN INSY ELSE IDENTIFIERS 
CURSY:=IF CURNANE1="3000END" THEN ENUSY ELSEX 
Jac one TF CURNAMEL="3000F UR" THEN FORSY ELSES 
Le IF CURNAME1="3000D1V" THEN DIVSY ELSER 
IF CURNAME1="3000MUD" THEN HODSY ELSEX 
Se ee. TF CURNAMEL®"3Q000NIL" THEN NILSY ELSEZ 
See IF CURNAME1="3000AND" THEN ANOSY ELSES 
IF CURNAME1="3000NUT" THEN NOTSY ELSE 
wa TF CURNAMEL="3000VAR" THEN VARSY ELSEZ 
Oe IF CURNAME1="3000SEI" THEN SETSY ELSEX 
IF CURNAME1="3000LSS" THEN LSSSY ELSES% 
ones ae i eens TF CURNAMELS"3000LEQ" THEN LEQSY ELSE 
—_ IF CURNAME1s"3000G2Q" [HEN GEQSY ELSES 
IF CURNAME1="3000@TR” THEN GTRSY ELSEX 
cafe a Sait Saget BL PE dy Soa TF. CURNAMELS"3Q00NEQ" THEN NEQSY ELSE . 
7 IF CURNAME{="3000EG4" THEN EQLSY ELSE IDENTIFIERS% 
CURSY!SIF CURNAMELS"4QQTHENY THEN THENSY ELSEX 
eee won TF. CURNAME="400ELSE" THEN ELSESY ELSES 
a IF CURNAME1s"40ONITH" THEN WITHSY ELSES 
IF CURNAMEL="400CASE" THEN CASESY ELS 
vo a TR CURNAME1=400GOTO" THEN GOTOSY ELSES 
——— IF CURNAMEL="400TYPE" THEN TYPESY ELSES : 
IF CURNAMEL="4OOFILE" THEN FILESY ELSE IDENTIFIER 
_CURSYtSIF..CURNAME12"50BEGIN" THEN BEGINSY ELSES 
a IF CURNAMEL="SONHILE" THEN WHILESY ELSES 
IF CURNAME1="50UNTIL" THEN UNTILSY ELSE 
vos woe oD. CURNAMELS"SOARRAY" THEN ARRAYSY ELSES 
———— eo IF CURNAME1="S0CUNST" THEN CONSTSY ELSES 7 
IF CURNAMEL="SOLABEL" THEN LABELSY ELSE IDENTIFIERS 
CURSY SIF. CURNAME 1="6REPEAT" THEN REPEATSY ELSES 
a cr IF GURNAMEs="6DOWNTO" THEN pon Neoey oe 
="GRECOKU" THEN RECORDS 
ne ="6PACKEO" THEN PACKEDSY ELSE IDENTIETERS® | 
CUR SYESIF CURNAME1S"7PROGKA" AND CURNAME2="M" THEN PROGRAM 
ELSE IDENTIFIERS 
CURSYS=IF. CURNAMEL="@FUNCTI"™ AND CURNAME2="ON" THEN FUNCSYS 
isd ~ ELSE IDENTIFIERS% 
CURSY!=IF CURNAME{="9PROCKLU" AND CURNAME2="URE" THEN PROCSYS 
i Si Roane ELSE IDENTIFIERS 
on ee CURSY f= IDENTIFIERS 40 Se AEE I: 
>URSY ESIDENTIFIERS ARACTERSs 
 SSIBENTIE ens 412 CHARACTERS. 
= CASES Y 
_ TE ReSNORDUP T 10) AND (CuROYs LOENTIFLER THEN 
——— ox RD NGTH*CHARCN " 
ee ge ages nee ae Serge 0 THEN CARDRNT:=CARDPNT#1 ELSE Tits =TL=13% 
Bb CA 
REPLACE KLINEPNT#T1] ay NTTCGURLENGTHS1)4 
END} 
END OF LETTER ELSES 
i Rina ad ene CSOT MENG au, 2 nw Lote ah ts 
BEGINS 


ae 


3 ay 


00909 
00910 
00911 
00912 
00913 
00914 
00915 
00916 
00917 
00918 
00949 
00920 
00921 
00922 
00923 
Q0924 
00925 
00926 
00927 
00928 
00929 
00930 
00931 
00932 
00933 
Q0934 
00935 
00936 
00937 
00938 
00939 
00940 
00944 
00942 
00943 
00944 
GO945 
00946 
00947 
00948 
00949 
00950 
00951 
00952 
00953 
00954 
00955 
00956 
00957 
00958 
00959 
00960 


00961 


00962 
00963 
00964 
00965 


O 


a 
1 


1412T 


o 


) 


} 
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XA 


CURVAL#%=C3 GRAS Ar NTCONSTi «4 


pe heeee atlas. NEM CHARS © 


WHILE CS9 DO BEGIN CURVAL?=1LUxXCURVAL+C3 NEXTCHAR ENDS 
IF c=", THENS 
————-- -- BEGINS - . -——- + 
NEXTCHARSS 
IF cS9 THEN 
a BEG IN--CURSY-§ REAL CONST 3 ~~ - 
DO BEGIN CURVAL?S10xCURVAL+C3% 
SEALE ESS RAGE 1s) NEXTCHARS& 
etna ere eer coos EN D-UN TEL 6293 
END ELSE IF Cs"," THEN Cts64 4 SPECLTAL MARK FOR ",,” 
FLSE ERRORC4)3% 
Shes Seat ee NR Re ee la te ek ee 
IF C="E" THEN 
BEGINS 
an CUR SY SREALGUNS-T3——-NEX PCHAR G4 
IF c="+" OR Cate™ THEN GEGIN NEGEXPS=C=ie"s NEXTCHAR ENDS4 
IF CS9 THENY 
ee AEG IN--EX PER 63--—N EXT CHARS & 
WHILE CS9 DO BEGIN EXPislOxEXPtCs NEXTCHAR ENDS% 
IF NEGEXP THEN EXPPa"EXP3% 
me a —-- END-ELSE- ERRQURGC4)F4-- 7 2-2 
SCALES =SCALE+EXP34 
ENDs4 
~-- I[F~CURSY=REALCONST- THENS---- --- ---- 
BEGIN’ 
REALOQVERFLOW# sOVERV LOWS 8 
pete eeuen aedeee CUR VALLE CURVALX TOS SCALES & 
REALQVERFLOW!=034 
END ELSES 
wee DF CURVALPMAX INT --THENS --- 
BEGINS 
OVERFLOW? ERRORC14)3 CURVAL?=03 REALOVERFLOWS= 


Sy % 


ere RE eee) | 1 Se - AEE pmareine caked deat a 
END UF DIGIT ELSES 
IF C=QUOTES THENS 
ia Se ase eG TR ete eh, ae Bd ee I. Bites ecb EB 2 
CURSYt=ALFACONSTS CURLENGTH?=03 NEXTCHARS% 
FINIS$=FALSE3% 
aaa ors so in BOAO SG DN estat aeiasieins sd C4 
IF C#QUQTES THEN BEGIN NEXTCHARS FINIS?=C#ZQUOTES END ELSES 
IF CHARCNT=0 THEN BEGIN ERRURC6)3 FINIS$= TRUE END3S 
ude tase PE ONULOE UN LS STAINS nese 
BEGINS 
REPLACE STRINGPNT+CURLENGTH BY CHARPNT FOR 13% 
ee oe CURLENG THES CURLENGTHTLSS. 
NEXTCHARS% 
END ENO UNTIL FINIS32 
-—-—_- I -CURLENGTH=0 -THEN ERRUR(4). ELSES. 
IF CURLENGTHE1 THENY 
BEGIN CURSY?=CHARCUNST3 % 
we ee REPLACE. CHARPHTBY. STRINGPNT FOR 13 CURVALSSCHLOI3% 
END ELSES 
IF CURLENGTHS7 THEN¥ 
aplastic ie N TEM TO Ne tects lem Se aa ' 
REPLACE TEXTPNT BY STRINGPNT FOR CURLENGTHS% 


00966 
00967 
00968 
00969 
00970 
009714 
00972 
00973 
00974 
00975 
00976 
00977 
00978 
00979 
00980 
00984 
00982 
00983 
00984 
v0985 
00986 
00987 
00988 
00989 
00990 
00994 
90992 
00993 
00994 
00995 
00996 


0997 


C0998 
00999 
01000 
01001 
01002 
01003 
01004 
Q1005 
G1006 
01007 
01008 
01009 
01010 
O1011 
01012 
01013 
01014 


-Q1015 . 


01016 
01017 
01018 
01019 
01020 
01021 
01022 
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CURVALt=TEXTLOIS & 01023 


on ENDG .- acs Soo ei cs i : 01024 
END OF STRINGS ELSES 01025 

BEGIN’ 01026 

wa CURSYISSYMBOLOIC]2 .. NEXT.CHARGS |. Sin + Sheed 01027 

IF CURSY=COLON aND GC=EQUAL THENS 01028 

BEGIN CURSY?=sASSIGNSY? NEXTCHAR ENO ELSE% 01029 

we TR CURSY FDOT. ANQ--CEUA.THEND  - 01030 
BEGIN CURSY! sD0UnLEOOTS WEXTCHAR END ELSES 01031 

IF CURSY=LSSSY AND C=EQUAL THEN% 01032 

a ee  BEGIN-CURSY I SLEQSYIZ—NEXTCHAR END ELSES é.¥ 01033 
IF CURSY=LSSSY AND csftot THENS Q1034 

BEGIN CURSYt=NEQSYs NEXTCHAR END ELSE% 01035 
oe LR CURSYRGTRSY--AND-CEE QUAL THENS. - 01036 
BEGIN CURSY?=GEQSY3 NEXTCHAR END ELSES 01037 

IF CURSY=LPAR AND Cat*® THES 01038 

ee BEGIN: ~o ve Foran rere a. Boke COMMENT #xe 01039 
NEXTCHARS% 01040 

IF C=DOLLAR THEW 4 DOLLAR INDICATES COMPILER OPTIONS. 01041 
DOB EGING-- © eee ee. 01042 
NEXTCHAR? CXtsC3 NEXTCHARSS 01043 

IF CX="L" THEN IF C=i THEN HEaDINGS 01044 

aie aa Ete SEE sant: Gea Git nha gie We ELSE. LISTOPTION:=C="+" ELSEX 01045 
IF CXS"R" THEN RESWORDUPTIUN? =coaty" ELSES 01046 

IF CX=s"C" THEN CHECKOPTION?=canem ELSES 01047 

ee OTR OX EO THEN. DUMPOPTIUNS sCcatet ELSES 01048 
IF CX="X" THEN XREFOPTLON:scst4t ELSES 01049 

IF Cxs"A" THENS 01050 

ree TF CRM THEN WRITECPASCALGULSALIST)& 01051 
ELSE WRITECRASCALGGLsNUALIOST) ELSES 01052 

IF CX="7T" THENS 01053 
ne BEGIN. LASTCHARPOS. 35. CHARCNT = CARDLENGTH3% O1054 
CARNLENGTHSs10xC7% 01055 

NEXTCHAR4 CARDLENGTH? SCARDLENGTHTCSS 01056 

ne ee | TRG ARDLENGTHS9 OR. CARDLENGTH>80 THEN . 01057 
BEGIN ERRORC14)5 CARDLENGTH?=72 ENDSS 01058 

CHARCNT? eee ae on uO eee nen “13 01059 

See ea BOF Bette es Be 01060 
NEXTCHARSY 01061 

END UNTIL C2 a3 % 01062 

tn eee ee PINTS BPALS ESB 0 01063. 
DO BEGINS 01064 

IF C#%*" THENY 01065 

ine. | SCAN CARDPNTSCARDPNT FOR CHARCNT!ICHARCNT UNTIL =ttet3 g 01066 
IF CHARCNT=O THEN NEWCARD ELSEY 01067 

BEGIN NEXTCHAR#% 01068 

Re ee ee oe ee Te ~. so WHILE. Cote! DO NEXTCHARS 01069 
FIN{S#=G=a")3% 01070 

ENO ENO UNTIL Ae 4 01074 

Sep et ee ONE POH ARS oon os 6 : 01072 
GO TO START;4 01073 

END OF COMMENTS x 01074 

tie Stn UE NO) Botiae Sate item tatiana sy 01075 
END OF INSYMBOL3 % 01076 

$ PAGES 01077 

mn BERLE EEE EEE ERLE LEER EL EAEY ELL UBER EASELS SL RAA EEL ELE EBEREBLEESEEREEEL“EEEEEGES 01078 
a 4 01079 
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( 
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© 
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a PART 43 EXPRESSION PARSER. 


% Ce eh ee Be oe ee | 


re SESTSPSESLSLCSSS SSL ESTLSE TEST SESSS TOSSES STATS TE SS 


% 
% 

-—-—-—-PRUCEDURE EXPRESSIONS . FORWARDS 
PROCEDURE CONCATs FORWARDS% 
% 


~————-—---ALPHA-—-TEMPSYM3 2%. 00 eee 
REAL SxX34 
INTEGER EXPRLEVELsTX3% 
DEFINE PUTTEXTCT)=% 
BEGINS 
eee TR NUMSYMS=MAXSYMS THEN S- - 
BEGIN ERROR(71)3% 
NUMSYMS2=43% 
mee ee ee END -ELSE- NUMSYMS 3 
SYMTABENUMSYMS J: 37 
END OF FUTTEXT #32 
see eee Pe A oes gt, he 
DEFINE FUTSYM(S)=4 
BEGINZ 
wee =O LE MPSYNS=0S)810412526)5% 
PUTTEXTCTEMPSYM) 3% 
END OF PUTSYM #3;% 


y 


DEFINE PUTCUNST(VAL)&2 
BEGIN 
me PUTTEXTO"2000000")3H.-- =. -- 
PUTTEXTCVAL 3% 
ENO OF PUTCUNST #33 
pee ee eect ar <7 ents SiaveS 13% 
DEFINE PUTDUMMY=% 
BEGINS 
ieee. PUTTENT OC! 3000000" 93 es 
END OF PUTGUMMY #3% 
a 
a DERINE-PUTIOCL »NUMsNUMDTG)=y. ~ 
BEGINS 
TEXTLOJt=" " &@L [353586134 
REPLACE TEXTPNT+2 By -NUM FOR NUMUIG DIGITS34 
PUTTEXTCTEXTLO])3% 
END OF PUTID#33 


NUMSYMS 413% 
3 


Ui 
& 


ca teri od eh BM kG okt ke cs 
DEFINE WRITEEXPR=% 
BEGINS 
a FOR Tt ed STEP 4 UNTIL--NUMSYMS LOZ 
BEGIN& 

SXtSSYMTABLTI]3 TXs=SX,041:613% 
ee TF TX=O THEN GENCSX5722) ELSES 
IF TX=3 THEN ELSES 


ERRABRSDSELA 


01080 
01081 
01082 
01083 
01084 
01085 
01086 
01087 
04088 
01089 
01090 
01091 
01092 
01093 
01094 
01095 
01096 
01097 
01098 
04099 
01100 
O1101 
01102 
01103 
01104 
Y1105 
01106 
01107 
041108 
O1109 
01110 
O1141 
O1liie2 
01113 
01114 
O41115 
01116 


01117 


01118 
01119 
01120 
Ol121 
O1ll22 
01123 
01124 
01125 
Q1126 
Q1127 
01128 
01129 
01130 
Q1131 
01132 
01133 
01134 
01135 
01136 


ae 


¢ 
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IF 1X51 THEN GENCSxXst*7) ELSES 


i= 
0 


— ---BEGIN2. 
T1is=T1 +13 “§X 
IF SX.C443 ae 
ee ee JEN De -END 3% 
NUMSYMS$ 
END OF RaqEeve vie 
debts Slat eh a : 
4 
DEFINE CHECKEXPRCLLIM» epenane 
tea BEG TN Bae ce. 5 eee 
PUTTEXT C™CHECK(") 3% 
EXPRESSIONS 3 


ae Bees PUTS YMC a) 
PUTSYMC%s")3 
PUTSYMC( 5" )3 

PUT SYM OM DGS 


a OF CHECKEXPR#s% 


a 


BOULEAN SIMPLEVARIABLE» INSIDEBRACKETS3 & 
INTEGER eo eee 


PROCEDURE VARIABLES & 


BEGIN 


SYMTABLTLI34 
vee GENINTCSX) ELSE GENREALCSX)3% 


PUTCONST(LLIM) 33 
PUTCONSTCULIM) 3% 
PUTCONSTCCARDCNT +4 


mee INTEGER. STARTSY MOLL [Mo ULIM3 % 


RE 


AL Tsa A 


BOOLEAN abies Nae 
Se LABEL. ADDADORS & 


A 
ST 


BE 


ee TAPE TALI RSTWITHSY MG W.. 


ARTSYMS=NUMSYMS413% 
ee. LTR THISLEVELPCURLEVEL THEN 


GIN 


TI =DISPLAYCTHISLEVELI34% 


T5s 


4 VARIABLE IN FIELD LIST OF 
% RECORD USED IN WITH*STATEMENT 


=TeLASTWITHSYM3% 


FOR T3574 STEP 4 UNTIL TS DO PUTTEXTCWITHTABLT31)3% 
INRECORDS=TRUES&% 
*=BOOLEANC Te BRACKETSINWITH) 3% 


INBRACKET 
NUMPOINTE 


SIMPLEVARIABLE: 
ee EN CURT YPE? STs REC TYPER: 
GO TO ADDADDR3% 


END3&% 
wD THISLEVEL> 1. AND. THISLEVELSCURLEVEL .THEN ERROR(5)3% 


RS3 


CURTYPE?=THISID. TYPES 
PUTIOC VMs 1 000xTRISLEVEL+THISINOEX #5 3% 

Seppe So ENG UM BOLD Bea can 
IF CURSY= LBRACKET oR CURSY= DOT UR CURSY=ARROW THENS 


BE 


——.--—-S TMPLE VARTABLE-: 


GIN& 


DO BEGINS 


SE34 


=NUMPOINTERS+TeNUMPNTRSINWITHS4 
=Fal 
TISTYPETABLEICURTYPE I; 4 


SIMPLEVARIABLEs3=[TRUE34 


IF CURSY=LBRACKET THENZ 


- --~BEGINS_.... 


aE ALSE J 4. - 


IF NOT CINBRACKET oR INRECURD) THEN 


BEGIN PUTSYMCrE);5 
we ee DOO BE GINA. : 


Tr 


INBRACKET? 


=TYPETABLLCURTYPEI3% 


HTRUE ENDS 


91137 
01138 
01139 
01140 


Ol141 


01142 
01143 
01144 
01145 
01146 
01147 
01148 
01149 
01150 
01151 
01152 
01153 
041154 
01155 
01156 
01157 
011586 
01159 
01160 
01164 
01162 
01163 
01164 
01165 
01166 
01167 
01168 
01169 
01170 
01171 
01172 
01173 
01174 
04175 
01176 
01177 
01178 
Q1179 
01180 
01181 
01182 
01183 
01184 
01185 


-Q1186 


01187 
01188 
01189 
01190 
O1191 
01192 
01193 


CO C) CY Cc 


C) 
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GO 


cs) 


O 


O 


Q) 


TR CHECK OPTION. THEN -CHECKEXPRCLLIM*ULIM) ELSE EXPRESSIONSS 


LLIM@=TYPETAB2CCURTYPEI]*# ULIMSsTYPETAB3ECCURTYPEIs% 


-- [F—T-oF ORMZARRAYS THEN ERRORC12)54% 
IF INRECORD THEN PUTTEXT(" +O") 5% 
INSYMBOL#% 


CHECKTYPESCTaINXTYPEsCURTYPE DSS 
CURTYPES=TLARRTYPESS 

-IF -INRECORD THENA- 

BEGIN& 


IF LLIM<O THEN BEGIN PUTSYMC™4+")3 PUTCUNSTC™LLIM) END ELSE 
-— IF-LLIM>0--THEN BEGIN PUTSYM("=")53 PUTCONSTC LLIM) ENDS4 


PUTSYMC™)1)3% 
IF TYPETABICCURTYPEJeslZE>1 THEN’ 


-.. BEGIN PUTSYMC Ux!) 3 PUTCONSTCTYPETABLLCURTYPEJ.SIZE) ENDs% 
END ELSE IF TYPETABIECCURTYPE] -STRUCT>=O THEN PUTSYMC%2")52 


END UNTIL CURSYZCOMMA34 


ae] Fs CURSY-ARBRACKET- THENS 


BEGIN ERROR(59)3 SKIPCRBRACKET)3& 
IF CURSY#RBRACKET THEN INSYMBOLS4 


SS ENDS ELSE-INSYNBOLS 
END OF BRACKETS ELSE% 
IF CURSY=DOT THENS 

ee GIN Gate ae 


Le NOTCINGRACKET oR INRECURD ) THEN 
BEGIN PUTSYMCTL"™)3 INBRACKET?S9°RUE ENDSS 


ete te ST Y RE TAB II CURTYPE Ie ee. 22 


IF T,sFORMZRECQRY THEN ERRUR(12)3 
INSYMBOL3 % 


Se os ee DP CUR SYSLOENTIFDER THENSi: 22 


BEGINS 
SEARCHTABCT, een es 
JAF -POUND—-THENS e460 eceGs = ae 


- BEGINE - 
THISID S=NAMETAB3CTeRECTABs THISINOEXI32 


_———---- ADDADDR&-—- =. --PUTSYMCMENIGS. 
PUTCONSTCTHISIOeINFO)S CURTYPES=THISIDe TYPES 


ENO ELSE BEGIN ERROURCLI3 CURTYPES=0 ENDs% 


ANOUELSE-BEGIN.ERRORC92.3 CURTYPE?=0O ENDS 


INRECORDSSTRUESS 
INSYMBOL3 4 


hen tt a tee END. UF. QUT-ELSE%. . —- 
BEGIN % CURSY=,RROW 


TIBTYPETABLCCURTYPEIF4 
-- DRT e FORM=FILES-. THENS -- 


BEGIN2 
CURTYPES ST.PILETYPES4 


LF -LYPETABILECURTYPE)].STRUCT=0 THEN PUTTEXTC" 


END ELSES 
IF TeFORMSTEATFILE THEN 


me  -REGING ~~ - 
SYMTABLNUMSYMS1:=SYNTABLNUMSYMS] @ "L" [351586]3% 


PUTSYMC™ 3 oy ene ae ay? 4 


tere deh id ei OUR PEt SCH ARTY RE Re seo ee 


END ELSES 
IF TeFORM=POINTERS Lee 


eG INR Sater ae 


IF JNBRACKET THEN. “PUTSYMONIND3 % 


COI")§% 


01194 
01195 
01196 
Q1197 
O1198 
01199 
01200 
QO1201 


01202 
01203 


- 01204 


01205 
01206 
01207 
01208 
01209 
01210 
QO1211 
01212 
01213 
01214 
Q1215 
01216 
QO12i7 
01218 
01219 
01220 
Ql221 
01222 
Ol223 
O1224 
01225 
01226 
Q1227 
01228 
01229 
01230 
01231 
Q1232 
01233 
Q1234 
01235 
01236 
01237 
01238 
01239 
01240 
O1241 
01242 
01243 
QO1244 
01245 
01246 
O1247 
01248 
01249 
01250 
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INBRACKET S&=FALSE?% 
\——————- =. TL RNUMSY MSH OSMANSYMS.. THEN 
BEGINA 
FOR Tit=NuMSYHS STEP “1 UNTIL STARTSYM DU 
co ee SYMTABL TL 420 2=SYMTABLCTII5S. . 
SYMTABLSTARTSYMJ:=" MEMES 
SYMTABECSTARTSyYoM+z,]e=" CTratpg 
ee . NUMSYMSSENUMSYMS 422 | NUMPUINTERSS=NUMPOINTERS+12% 
INRECORDi=TRUES 4 
END ELSE ERROR(63)3% 
cen seen an oe CURTYPE SST. POINTTYPES &.. 
END ELSE BEGIN ERRORC12)% CURTYPES=0 ENDS 2 
INSYMBOLS % 
wee ene ee ee END. OF ARROWSG -- ~~ 
END UNTIL CURSYZLBRACKET “AND” CURSY#D0T AND CURSYZARROW;& 
IF TYPETABLEICURTYPEI] ¢STRUCT=0 THENS 
——~--— - BEGIN’... -. --- 
IF INBRACKET THEN PUTSYMC"I" 3% 
WHILE NUMPOINTERS>O DO% 
———__--—. —-----. BEGIN PUTTEXTC™=@4)01V")s. PUTTEXTC™ 1022) 53% 
PUTTEXTC™ T mMOD™)s PUITEXTCOC™ 10221%)3% 
ODE EERE eee: les 
i tts clot ee ac a ef Ds% eae Ui be tsa ame eae 
ENDS % 
END3% 
So ENS LOE BRACKETS PSI NBRACKET? te-: 
CURMODE: ee 
END OF VARIABLE; 
so eee ah Sa erties Gua NO RoE re a Ben Gales aes 
4 
PROCEDURE PASSPARAMS3% 
ee BEG-ING... ert cae : 
INTEGER NPARS+PARAM, PTYPE»P»F IRSTSYMS 
BOOLEAN FORWALPROCs CHECK 73 
ie tees ue NBR LSE A Tt he ot A 
% 


ee eve ema INSEE % 
———-— —--— Ps THISIO.INFOSS. — - 
FORMALPROC? =BOOLEANCTHISID, FURMALI3 
NPARS?=PARAMTAB[P]3 Pt=P+13% 
TF FORMALPROC. THEN. NPARS #2999934 
INSYMBOL3% 
IF CURSY=LPAR THEN 
Aol ee BE GTN DS 2: ; 
PUTSYMCM CD39 
DO BEGINS 
ee .. INSYMBOLZS 


IF NPARS=O “THEN BEGIN ERROR(3)3 SKIPCRPAR)s GO TO EXIT ENDs 4% 


PARAM?=PARAMTABCPIJ3 Pi=P+iss% 
ne KPT Y PES SPARAM, PARAMTYPES % 

IF PARAM«ePARAMKIND=CONST THEN 

BEGING 


a ee eee CHECK SECHECKOPTION.. AND TYPETAGILPTYPEJ*FORM LEQ@ CHARS 


TIF CHECK THEN PUTTEXTC'CHECK(")3% 
PUTDUMMYS FIRSTSYMS=NUMSYMS3 & 

wn eee ee oe EXPRLEVEL 3 REXPRLEVEL 413% © 
EXPRESSIONS EXPRLEVELSSEKPRLEVEL@13% 


01251 
01252 
01253 
01254 


_ 01255 


01256 
01257 


01258 


01259 
01260 
01261 
01262 
91263 
01264 
01265 
01266 
01267 
01268 
01269 
01270 
01271 
01272 
01273 
01274 
01275 
01276 
01277 
01278 
01279 
01280 
01281 
01282 
01283 
01284 


01285. 


01286 
01287 


01288. 


01289 
01290 
01294 
01292 
01293 


-O01294 


01295 
01296 
01297 
V1i298 
Q1299 
01300 
Q1301 
01302 
01303 
01304 
01305 
01306 
04307 


C) oe) 


C) 


34127 


Moaere busines: F Inc. sv 
pea 


© 


2 Forms, 


C} 
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) 


y 


Se 


O 


IF CURMUDE=BITPATTERN THEN 


toe eee atta SER. Ate vai gions BEGIN SYMTABCFIRSTSYMJ:=" REALC™S PUTSYMC™)")3 ENDSS 


TF CHECK THEN? 
BEGIN? 
an ee ee PUTSYM CI) 3- PUTCONSTCTYPETAB2ZEPTYPEI)45% 
PUTSYMC™s™)3 PUTCONSTCTYPETAB3CLPTYPEJ 24% 
PUTSYMC sa") 3 PUTCONSTCCARDCNT)s PUTSYMC™)%) 34 
ee ee END GE - - eee eee 
END ELSEA 
IF eee er eon edoe VAR TRENS 
wee +B EGING:- oe 
IF CURSY= IDENTIFIER HENS 
BEGINZ 
mo nn ce eee SEARCHES - 
IF FOUND THEN 
BEGINS 
me ee eee > TF OTHISTDSIDCLASS=VAR ORZ 
THISID,IDCLASS=CONST AND BOOLEANCTHISID«eFORMAL) THENS 
BEGINS 
eee ee 2 oe DP PARAM es PARAMFILCE=1 THEN’ 
BEGIN’ 
CURTYPES=THISID.TYPEs% 
sete ee ee oe  PUTIO GV se LOOOXTHISLEVEL+THISINDEK®5)3 PUTSYMC™s tt) 5% 
PUTIOC™F's LOOOXTHISLEVEL+THISINDEX25)3 PUTSYMC T'S 3% 
PUTIDC™I",LOOOXTHISLEVEL+THISINDEX2#5)5% 
ti tree a cee eee  INSYMBOLSY- - 
END ELS¢% 
ee 
ane ce me -VARTABLEs% : 
IF TYPETABILCURTYPE) «STRUCT>O THENZ 
IF NOT SIMPLEVARIASLE THEN ERRURC92)3% 
Seta ee ee ae cota (LEGS ENDS Rees oS cents . 
END ELSE BEGIN ERROR(B)3 CURTYPE#=Q ENDs% 
END ELSE BEGIN ERROR(C1)4 CURTYPES=0 ENDS 
rn eee oo e- END. ELSE BEGIN. ERROGR(9)3-.CURTYPE3=0 END3% 
END ELSES 
BEGINS 
vee ee eee eee DE. CURSYSIOENTIFIER THEN 
BEGIN< 
SEARCHS 2 
eee ee es oe TF FOUND- THENS 
BEGIN& 
IF THISID, LO0CLASS£4PARAM.PARAMKIND THEN ERRORC91)3% 
meee ee ee ee ee eH PUTIDO™V™, LOOOXTHISLEVELtTHISINDEX2 523% 
CURTYPES=IF THISIDeIDCLASS=FUNC THEN THISIODe TYPE ELSE O3% 
INSYMBOL3¥% 
rege dae --- END ELSE. BEGIN ERROR(C 122 CURTYPESs0 END3% 
END ELSE BEGIN ERROR(9)3 CURTYPE3=0 ENDSS 
ENOD34 
——--——- -—- -- «= CHECKTYPESCPTYPEaCURTYPE 54 
NPARS:sNPARS#43% 
IF CURSY=COMMA THEN PUTSYMC2")3 
manne - ENO.UNTIL -CURSYZCOMMA;%. - 
IF CURSYZRPAR THEN BEGIN ERRORCH9D3 SKIPCRPAR) ENDs2 
EXIT: PUTSYMC")")5% 
TF CURSYERPAR. THEN INSYMBOLS4 
ENDs4 


01308 
V1309 
01310 
QO1311 
01312 
01313 
O1314 
Q1315 
01316 
01317 
01318 
01319 
01320 
04324 
V1322 
Q1323 
01324 
01325 
01326 
V1327 
01328 
01329 
01330 
01331 
01332 
J1333 
01334 
01335 
01336 
01337 
01338 
01339 
01340 
01344 
01342 
01343 
01344 
U1345 
01346 
01347 
01348 
01349 
01350 
01351 

01352 
01353 
01354 
01355 
01356 
01357 
V1358 
01359 
01360 
01361 

01362 
01363 
Q1364 


QO 


©) 
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WA 
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IF NPARS>O AND NOT F ORMALPROC THEN ERRORC34% 
ea ee URMODETSNUNBERS © cos = 
END OF PASSPARANS3% 


4 
Poor Ree Seenaay rey een tae tithe ator Met toe Ae ee 
PROCEDURE. FACTORS axe FACTOR *** 
BEGIN Fo kkk ak kk ek 
ee — INTEGER. STARTSYMs STYPEo TA4~ - 
BOOLEAN FIRST3% 
REAL VAL3% 
oe ats atte |. 8. ta ~ , See 7 : 
DEFINE PARAMETERS geae CHECK THAT THE FUNCTIUN HAS 1 PARAMe 
BEGINS 
Saas eb NS Y MB OLB. n. 2 oe ee eee 
IF CURSY#LPAR THEN 
BEGINS 
we -~PUTSYMC"(%)3 0 INSYMBOLs EXPRESSIONS 
IF TYPETABLICCURTYPEJ,FORM=NUMERIC THEN CURTYPESSINTTYPE3SS 
IF CURSYZRPAR THEN BEGIN ERRORC3)3 SKIFCRPAR) ENDs& 
cee ee ee RUT SY MCD DG TF--CURSYSRPAK THEN INSYMBOLS4 
END ELSE ERRORC3)3% 
END OF PARAMETER#32 
Peeve eo, (eR ae pelt? Tetiaies 


CURMODE: NUMBERS & 
IF CURSY= =IDENTIFIER ENS 
iia Pelt renee GOP tae Gk ala ts dee ate x 
SEARCHS % 
IF FOUND THEN 
minal ae el So Ea PA oe eet 2 wes 
IF THISIDe IDCLASS SVAR ORS 
THISIDsIDCLASS=CONST AND BOOLEANCTHISID+ FORMAL D4 
oe TAN SVARTABLE-ELSES:. 
IF THISID.-IDCLASS= CONST. THENS 
BEGIN’ 
eee ee eee LE. THISID. INFOS1023—THEN PUTCUNSTCTHISIODe INFOS 
ELSE PUTCUNSTCCONSTTABLTHISIDeINFO"1023))3 
CURTYPES=THISTD«aTYPES CURMODES =NUMBERJ& 
ee Te ieee cee VY MEU beens anal te tes 


END ELSES 
IF THISID«INCLASS=FUNC THENS 
ean Seine poe each EG TNR cr ty ene es : 
IF THISTABSO THEN %*e** INTRINSIC FUNCTION **s 
BEGINS 
ei eS UIT EGER UMN ARS & os » ei qnt 
IF CURNAME1="3000ABS" THEN % "Abs" 
BEGINS 


So a es PUT TERT OS SARSTIE “RARAMETERTS 
IF CURTYPEZREALTYPE ANU CURTYPEZINTTYPE THEN ERROR(67)3% 
END ELSES 
iain eet TPO CURNA ME Le! SOR0CHR™. THEN: -. & "CHR" 
BEGINS 
INSYMBOL4% 
eee CUR SSL PAR: THEN eee 
BEGIN INSYMBOLs CHECKEXPRCOs603)5% 
IF TYPETABLCCURTYPE J+FORMAZNUMERIC THEN ERRORC67)34 
die peice gia tl alate woo 0. TF. CURSYZRPAR. THEN BEGIN ERRURC46)3 SKIPCRPAR) ENODS2 
IF CURSY=RPAR THEN INSYMBOLs»% 


01365 
01366 
01367 
01368 
01369 
01370 
01371 
01372 
01373 
01374 
01375 
01376 
Q1377 
01378 
01379 
01380 
Q1384 
01382 
01383 
01384 
01385 
01386 
01387 
01388 
01389 
01390 
01391 
01392 
01393 
01394 
01395 
01396 
01397 
01398 
01399 
01400 
V1404 
01402 
01403 
01404 
01405 
01406 
01407 
Q1408 
01409 
01410 
014114 
01412 
01413 
01414 
01415 
01416 
01417 
01418 
01419 
01420 
01424 
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Ne 


END ELSE ERRORCS8)44 


ots etieee atl eile CUR EMRE TS CHART Vee? & 


END ELSE 
TF CURNAME1="3000E0F" OR  "EQRUSMEOLN" 
ect a te ee pire ee URN AME) = OOr OLN. THEN ; 
BEGIN’ 
FIRST? =CURNAMELE"3000LUF%3% 
nn ee ee REL EPARAMCINPUTF IGE D 2% 
PUTIDC"IN, FILENAMES 5734 
PUTTEXTCIf FIRST THEN " EOF" ELSE " «EULN")54 
—_—- oe oe TF -LPARFOUND- THENS -- : 
BEGINS 
IF CURSY#ZRPAR THEN BEGIN ERRKQRC46)4 SKIPCRPAR) ENDSS 
Bo a el DR PURSYSRPARSTHEN PNSYMBULS2 


END3% 
CURTYPE?: =ROOLTYPEs% 
END ENS SEER om meee ~ 
re CURNAMEL="3000000" THEN 4 "Oop" 
BEGIN® 


ispecies PUT TEN TON == ODDN Is. PARAME TERRA 
IF CURTYPEZINTTYPE THEN ERROR( 67254 
CURTYPES =BOULT TEE? CURMODES=BITPATTERNJS 
ioeeee loss SEND Jb Sheen te, 58.05 G 
IF CURNAMEILs ="30000RD" THEN & "“OQRD" 
BEGINS 
PUTS INS YMBOUL SS 
IF CURSY=.PAR THEN 
BEGINS 
pee HENS YMBOL I —-EXPRESSIONSS 
IF TYPETABLECURTYPEJ*FORMS>CHAR THEN ERRORC 67234 
IF CURSYZRPAR THEN upto SRR aed SKIPCRPAR) ENDs&% 
ENS YM BOER BR me me ee 
END ELSE ERROR(SB)3% 
CURTYPE?=NTTYPES PUTSYMC™)")34 
adie ast END EROE a hoy ek nek, 
IF CURNAME1L="400PRED" OR % "PREO’/"SUCC" 
CURNAMEL="400SUCC" THENS 
SiGe: BEG TN hie ee ceed eee 
FIRST: =CURNAME1="400PRED"3% 
PUTTEXTC™CHECK(C%)3 INSYMBOLSA 
a EE CURSYSEPAR--THENS- 
BEGINS 
INSYMBOL3 EXPRESSIUNS& 
hoe eee SRUT SYN CTR FIRST THENCE EESE EN Oe PUTOIM OTIS a % 
IF TYPETABLCCURTYPEJ*FURM>CHAR THEN ERRGRC67 3% 
PUTSYMCtts tt); PUTCONSTCTYPETAB2LCURTYPE] 134 
ee ee PUTS YM ED --PUTCONSTCTYPETABSLCURTYPE] 23% 
PUTSYMC'%s') 3) PUTCONSTCCARDCNT 34 
PUTSYHC*) "5% 
a ee ee TR CURSYARPAR--THEN BEGIN ERRORGC46)3 SKIPCRPAR) END#% 
IF CURSY=RPAR THEN INSYMBULES 
END ELSE pEGIN Eee ae CURTYPE?:=0O END3% 
ne a END EL SER. ee eee : : 
IF CURNAMEIL= ="50R0UND" THEN 4 "ROUND" 
BEGINS 
gia oat Sh Se ca cael UP ETE Ret tee SP AR AME PER oe 
IF CURTYPEZREALTYPE THEN ERRORC67)F% 


01422 
01423 
01424 
01425 
01426 
01427 
01428 
01429 
01430 
01431 
041432 
01433 
01434 
01435 
01436 
01437 
01438 
01439 
01440 
01441 
01442 
01443 
01444 
01445 
01446 
01447 
01448 
01449 
01450 
01451 
041452 
01453 
01454 
01455 
01456 
01457 
01458 
01459 
01460 
U1464 
01462 
01463 
01464 
01465 
01466 
01467 
01468 
01469 
U1470 
01471 
01472 
01473 
01474 
01475 
01476 
Q1477 
01478 
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ws, 


NUMSYMSS=NUMSYMS=13 PUTSYMC(N, 


WSS 


See ete ees 2 a ee UL ECONS IC CARDEN TDs |. PUTSY MO) 732 


CURTYPES=[NTTYPESS 
END ELSE% 
pee ar a —IE--CURNAME1 =!3000SQR" —THEN.. 
BEGINS 


PUTTEXTC" SaR")3 PARAMETERS & 


a es NUMSYMSEENUMSYMS@ 43) PUTSYMC'S 


3A 


PUTCONSTCCARDCNT)§ PUTSYMC™) "95% 
IF CURTYPEZREALTYPE AND eae tee ie THEN ERRORC67)5% 


ogc atl les eine on aaa NOE UG Ek tact et Teed’ Saar 
IF CURNAMEL="507RUNC" THEN 
BEGIN% 


ee eee | PUTTEXT.C" TRUNC) 3 PARAMETERS 


NUMSYMS&=NUMSYMS=45 PUTSYMC('s 


"Jia 


PUTCONSTCCARDCNT)3 PUTSYMC™) D352 
——— Hp pees cee LES CURTYEEAZREALT YPE- THEN ERROR CGT) 2% 


CURTYPESSINTTYPE34% 
END ELSE% 
wore TE-CURNAME 1="6CONCAT". THEN 
CONCAT ELSEX 
IF CURNAME1="400TIME" THEN 


% "SaQR" 


& *TRUNC" 


% "CONCAT" 


a "TIME" 


% "DATE 


agree eat as XD saath dep eat OS Ee eh else ER are 
PUTTEXTC"™¢ TIME cn95  PUTTEXTC™L) £602) 3% 
CURTYPES=REALTYPE INSYMBULS% 
a eer wees END ok SES —— piecoahies 
IF CURNAME1="4OQDATE" “THEN 
BEGINZ 


Bett Ae lla tee PULTE KE CY CURDA TL Se 


CURTYPES=aALFATYPES INSYMBOLS& 


END ELSES 


ee ee TE. CORNAMET SM ZELAPSEM.AND.CURNAMEQS"D" TREN 


BEGINS 


PUTTEXTC™CTIMEC™)5 PUTTEXTC%2)/60)")5% 


vee ee ee eee CURTYPESSREALTYPER IWSYMBOLS% 


END ELSES 
IF CURNAMELS"610TIME™ THEN 
BEGGING Reece 


% "ELAPSED" 


% "“TOTIME” 


PUTTEXTO"(TIMEC "93 PUTTEXT("3)/60)")3% 


CURTYPES=REALITYPES IWNSYMBOL3% 


Spiga, eek ude sel SO e e wace 


IF CURNAME1="7WEEKDA" AND CURNAME2= 


BEGINS 
PUTTEXT.CMWEEKDA" ) 34 


CURTYPES=ALFATYPES INSYMBUL3S 


END ELSE IF CURNAMEL="4Q0QUSER” THEN 


pcg eee BEGUN Mite ei petit ae te 6 
PUTTEXTC” TIME")3 PUTTEXTC" 


CURTYPES=ALFATYPEs INSYMBULSS 


Fee ice Ow cette PUD LE |S GIR ceo seek a 
BEGINS 
PUTTEXTCIF CURNAME1="3000SIN" 
Soe ett So os. EO CURNAME LS SO00CUS" 
IF CURNAMEL="6ARCTAN" 
Tp CURNAMEL="400SGQRT" 
-Tp CURNAME 1="3000EXP™ 
" LNt)34 


nye THEN 


% "USER" 


C71") 53 


THEN 
THEN 
THEW 
THEN 
THEN 


S WSIN's"COS" ETC. 


1) SIN" 
" cas" 
"ARCTAN" 
” SQRT" 
' Exp" 


4 "WEEKDAY" 


ELSES 
ELSES 
ELSES 
ELSES 
ELSES 
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PARAMETERS% 


OA Sette ee pees ... . TF CURTYPE#REALTYPE AND CURTYPEZINITYPE THEN ERRORC67 03% 


CURTYPE?=REALTYPEs4 
ENO3% 
--—--. END -OF- INTRINSIC FUNCTIONS EL Sta 
ce 
=THISID. TYPES 


biG kiiae, 4a SpA sar AR ANGLE 


CURTYPE3 =T3 % 
ENDs& 
-END OF FUNCTIONS ---ELSES- 
IF THISID-IOCLASS=PROC THENS 
BEGIN 


ee ee ERROR C68)3)  PASSPARAMS3 &- 


CURTYPES=05% 
END ELSE BEGIN FRRORC69)3 CURTYPE?=0% INSYMBOL ENDS 


oo END ESE BEGIN ERRORG1)#3 CURTYPES=04 INSYMBOL END3% 


END OF IDENTIFIER ELSES 
IF CUR LSE Anes t THEN 


BEG INR = 


CONSTANTCVAL*CURTYPE)3 “PUTCOWSTCVALI3% 
END ELSES 


open Pe CURSYSENOTSY “THEN 245 


BEGINA 
PUTTEXTC™ NOT "23 PUTDUMMYS STARTSYMSSNUMSYMS3 % 


wood eos ee TNS VMOU LES: PRCTORS Fe... 


IF CURTYPE>O THEN 
IF CURTYPEZBOOLTYPE THEN BEGIN ERRORC17)4 CURTYPEs=0 END#&% 


a ttre eee LF CURMODNESNUMBER.-THENS - 


BEGIN SYMTABESTARTSYM1¢5" BC"%% PUTSYMC™)")54% 
Boeri Olsens 

ENO? &... 

END ELSEX 

IF CURSY=NILSY THEN? 

BEGINS .—. .. urea - 
PUICOWST (023 CURTYPEs SNILTYPE34% 
INSYMBOLS 

a iota weet NE ELSE oceelies oa Ee! Sees 

IF CURSY=LPAR THEN 

BEGINS 
--PUTSYMO"(™) 


INSYMBOL 3 Saeed 
IF CURSYZRPAR THEN sak ERROR¢C46)45 SKIPCRPAR) ENDS 
PUTSYMC" DISH . - - 
INSYMBOL3% 
END ELSES 
-JF-CURSY=LBRACKET -THEN 
BEGINS 
INSYMBOLS% 
—--JF CURSY=RBRACKET -THENS 
BEGINS 
PUTCONST(CO)S CURTYPESSEMPTYSET2 CURMODES =NUMBERS2 


Beek SET CONSTANT *** 


---- - INSYMBOL44 


END ELSES 
BEGINS 


woonee . PIRSTASTRUEZ A. 


DO BEGINS 


01536 
01537 
01538 
01539 
01540 
U15414 
01542 
01543 
01544 
01545 
01546 
01547 
01548 
01549 
01550 
01551 
01552 
01553 
01554 
01555 
01556 
01557 
01558 
01559 
01560 
01561 
01562 
01563 
01564 
01565 
01566 
01567 
01568 
01569 
01570 
01571 
01572 
01573 
Vi574 
01575 
01576 
01577 
01578 
01579 
01580 
01581 
01582 
01583 
01584 
01585 
01586 
01587 
01588 
01589 
01590 
O1594 
01592 


A? 


ft 
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O 


TAT2T 
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Ge Or SO 3 465 Wr 5G Oe. 0 


O 


IF FIRST THEN FIRST?=FALSE ELSE INSYMQULGS 


pe PUTTEXTO--BITCNDS ««STARTSYMESNUMSYMS3 4 


EXPRESSIONS% 
IF STYPE=Q THENS 
oe ee BEGIN STYPESSCURTYPESS - -- 
IF TYPETABICCURTYPEJ+FORMD>CHAR THEN ERROR(72)3% 
ENO ELSE CHECKTYPESCSTYPEs CURTYPED3% 
Se get aeons TE CURSTEDOUUBLE DOT  THENA 
BEGINS 
PUTSYMC%s")3 SYMTABLSTARTSYMI]3=" BITS("3% 
ee INSYMBOLS. EXPRESSIONS S 
IF STYPE=0 THENZ 
BEGIN STYPR:=CURTYPESS 
RY alee ee ete ee _ IF. TYPETARLECURTYPE)eFORM>CHAR THEN ERROR(72)3% 
END ELSE CHECKTYRES(STYPE*CURTYPE) 34 


ENDs& 
we ee RUT SYM Ct 2 PUTCONSTCCARDCONT) 3 «=PUTSYMC™) "D354 
IF CURSY=COMMA THEN PUTTEXIC(” OR")34 


END UNTIL CURSYZCOMMAs% 
wa ee TR CURSYARBRACKET THENS ~~ 

BEGIN ERROR(59)3 SKIPCRBRACKET)3 

IF CURSY=RBRACKET THEN INSYMBUL32 

iettameeiiee cee ENDS ELSE: INSYMBQL Se 

NEWTYPE} TyisSeTs T1sSLZEs#13 TLsSTRUCT?=03% 

TL SETTYPEL=STYPE} TYPETASLETYPEINDEX] 34713 % 
a we ee CUR TYPE £27 YPEINDEX3 % 

CURMODE !=BITPATTERNSS 

END} % 
a END.OF. SET. CONSTANT ELSE BEGIN ERROR(99)3 INSYMBOL END3% 
END OF FACTORS% 


% 
- PRUCEDURE 7 TERMS | beee TERM ae 
BEGIN Bea K REAR EK EK 


INTEGER. STARTSYMeMODEs TYPE 1s MULUPTRoF 3% 
PUTDUMMY3 STARTSYM:=NUMSYMS3% 
FACTORS 4% 
we MODE PSCURMODESS --- 
WHILE CURSY 2ASTERISK AND. CURSY SMODSY DO & MetsO MSH OT VS YMODMs "AND! 
BEGINS 
TY REAPS CURTYPER- -MULGPTRESCURSYS& 
Fi=TYPETABICTYPE1LJ.FORMs2 
If FsWUMERIC GR FeFLOATING ica 
ra at Sars teats SE GIN 2,205 eee at een of tes. tg 
MODE} =NUMBER3% 
IF CURSY=ASTERISK THEN PUTSYMC™XK™) ELSES 
i ee PP CUR S Y= SL ASH —--THEN- PUTSYNCOT/™) ELSES 
TF CURSY=ANDSY THEN ERROR G4) ELSES 
BEGINA 
a rnc eee EP FE PLOAT-ING- THEN--ERRORCO4)GS 
IF CURSY=DIVSY THEN PUTTEXTC" DIV") ELSE PUTTEXTC” MOD")34 
END END ELSES 
aE CURT YPESBOOLTYPE. UR. FSSET.. THEN 
BEGIN’ 
MONDE *SBITPATTERNS% 
pe TE. CURMODE ZMODE-THENS 2 
BEGIN SYMTABLSTARTSYMIe=" BC's PUTSYMC™I") ENDSZ 
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PUTTEXTC(™ AND "3% 


_IF. CURSYACIF FSs5ET. THEN ASTERISh ELSE ANOSY) THEN ERRURC64)74% 


END ELSE ERROR(C64)3% 

PUTDUMMY3 STARTSYMS=NUMSYMSs@ 
INSYMBOL3.. FACTORS-%——-- ---- - 

IF CURTYPE>0 AND TYPE L>0O THEND 


BEGINS 


Sen ee TP CURTYPEAIYRE (“THEN == == = 


BEGINZ 


IF TYPETABSLETYPE1L1J«FORMANUMERIC OR CURTYPE#REALTYPE THEN’ 


CHECK TYPES CTY PELs CURTYPL IIS - 
IF TYPELSREALTYPE THEN CURTYPE? 


END34& 


ENUs2 


SREALTYPEs% 


—IF. CURTYPE=REALTY.PE- AND. MULUPTR2DIVSY THEN ERROR(65)24 


IF MULOPTR=SLASH THEN CURTYPEsSREALTYPES% 
TF -CURTY PERO -THEN- CURTYPES=TYPELSA 


END UF WHILE LOOP3% 
IF MODE=BITPATTERN AND CURMOUE#MUDE THENS 
BEG IN-SY¥MTABLSTARTSYM]ta%—-—— -B(") PUTSYM(™)") ENDS% 
CURMODE t=MODEs % 
END OF TERM3% 
BY chor hte elit oa ane rie eta aia 8, 3, als 


% 
PRUCEDURE SIMPLEEXPRESS]ON3 
soeeeloi Be Gis eae 


INTEGER STARTSY Ms MODEr TYPEL oF SS 


BO 


“PU 


BE 


SEN 
TE 
MO 


OLEAN SEENE Es ; 


TDUMMY3 “STARTSYM?= -NUNSYMS33 
IF CURSY=PLUS OR CURSYSHINUS THEN’ 


GIN--SI-GNED?-=-TRU ES ge ee ee 
PUTSYMCIF CURSY=PLUS THEN"+" 


INSYMBOLS% 
OP Boe ede See 
RMF % 
DEMSCURMODES & 


foie Se Se SE GIN E Dc) EN saa a es Se te eR ee 
GIN FS=TYPETABICCURTYPE]. FURMZ% 

LF FANUMERIC AND FAFLOATING THEN ERRORG29 23% 
D374 % Ses, Sera oweneieas..dy 


WHILE “CURSY2PLUS AND CURSY sORSY DQ 


BE 


—_——---—-- EN 


BE 


YP EL ER CURTYPE 3- 


GIN’ 


IF F=NUMERIC OR FsFLOATING THEN’ 
BEGIN MODE#=NUMBERsS% 


a*ee* SIMPLE EXPRESSION *** 


eee : eee ee ee ee ee ee ee 


ELSE Wa ae 


- wa, TY mm ft ager 


_ PESTYPETAULLTYPE1],FURMS % 


TF... CURSY=PLUS-THEN.-PUTSYMO"+") ELSE” 


IF CURSYSMINUS THEN PUTSYMC ™@") ELSE ERRORC64)5% 


END ELSES 


IF. -CURTYPESBOOLTYPE.-THENS——~ 


BEGINS 


MODES =BITPATTERNS& 


-IF. CURMODE-#MODE- THEN%---- - ae 
BEGIN SYMTABCSTARTSYM]3=" BON 
IF CURSYSORSY THEN PUTTEXT (* 


SE Ste at aE UO ete 


IF F=SET THENS 


PUTSYMC™)") ENDS 


OR") ELSE ERROR(64)4% 
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BEGINS 
MODES SBI TPATTERNGS - o-- ee 
| IF CURMQOEZMOQDE THENS 
BEGIN SYMTASCSTARTSYMIss" BC" PUTSYMC™)™) ENDS% 
—. - LRCURSY=PLUS. THEN-PUTTEXTCH UR") ELSES 
IF CURSY=MINUS THEN BEGIN PUTTEXTC™ «= AND) sPUTTEXTOC™ 
ELSE ERRUR(64)4% 
Bot END EL SEE RRORCOM SS 6 
INSYMBOL; ¢ 
PUTDUMMY 3 STARTSYM: SUNOS 7 
Pieces seem Jee ie Me ees eee eS 
IF CURTYPE>0 AND TYPE1>0 THEN’ 
BEGIN 
a CURTYPEZTYPEL THENS |. -- 
BEGINS 


IF TYPETABICTYPEL]eFORMAZNUMERICO OR CURTYPEZREALTYPE THENS 


ee ee CHECK TLYPESCTYPELsCURTYPE 19S: 
IF TYPELSREALTYPE THEN CURTYPESSREALTYPE+% 
END END3% 
a ee CUR TY RESO. THEN-CURTYPESETYPEL34 
ENO OF WHILE LOOPs4% 
IF MODESBITPATTERN aND CURMODEZ6ITPATTERN THEN 
BEGIN -SYMTABUS TARTS YM) ist. -..B0%) PUTSYMC9)") ENDES 
CURHODE s=MODEs 3 
END OF api Reece arian % 
Soe fra a eC Ch nd Lage Seat fl pda tent. La: 
4 
PROCEDURE EXPRESSION; ée** EXPRESSION **% 
pee BEGIN... ‘ Lo BRK RK RRR 
INTEGER STARTSYMs FIRSTSYM*PTYPEL a RELOPTRoF3 a 
BOOLEAN CALLGEN;% 
Pah I ete Ste bel arn * athe Sige, Rte aa aes SR, BS Suite hn Oe glad 
EXPRLEVEL$ SEXPRLEVELS43 4 
IF EXPRLEVEL = 1 oe 
eh he OE SRG IN Bak oe ote oe eesti un 
PUTOUMMY 3% 
FIRSTSYM $= NUMSYMS34% 
$B Be Fat EN ae wersieai 
PUTDUMMY 3 STARTSYN;=NUMSYMS3% 
PUTOUMMY3 4 
wee SEMPLEEXPRESSTIONS&% 


IF CURSY2LSSSY AND CURSYSINSY THEN me MEM pM SMa Mats Not MSN TZ" sO ENE 


BEGINE 
ce TYPE LP HCURTYPE GL. Eta TyPETABICTYPELIJF ORM; % 
RELOPTR&=CURSY3 4% 
IF FSALFA THENS 
wire te BIG T NB ; 
IF CURMODES :BITP ATTEN THENS 
BEGIN SYMTABLSTARTSYMJ]s=" REALC™S PUTSYMCO")") ENDS & 
te CURSYRLSSSY THEN. PUTSYMC™<") ELSES 
IF CURSY=LEG@SY THEN PUTSYMC"S") ELSE 
IF CURSY=GEQSY THEN PUTSYMC"2") ELSES 
ee TP CURSYRGTRSY- THEN PUTSYMC >"). ELSES 
IF CURSY=EQLSY THEN PUTSYMC™=") ELSES 
IF CURSY#NEQSY aes PUTSIMCNZT) LLSES 
SoS eee ABE GINA cen: 
IF F FLOATING THEN ERRORCG4)+ % 


NOT 


"QEND 
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SYMTABLSTARTSYMJ]s]"INTSTC"S PUTSYMC™*#")3 CALLGENS=TRUESS 


Rceiiettat. site es SNE. 


END ELSE% 
IF F=SET THEN 
pater So ea tee MARGIN aes. iat 
IF CURMODE= SBITPATTERN THENS 
BEGIN SYMTABLCSTARTS ¢M+133=" REALC™S PUTSYMC™)") ENDJ4 
we ee TF CURSYSEQLSY -QOR-CURSYSNEQSY THENS 
BEGIN PUTSYMCIF CURSYSEQLSY THEN "=" ELSE "#™)5¢ 
ENO ELSES 
pete Sa PNG eae. den oes 
IF CURSY= LEQSY THEN “SYMTABLSTARTSYMIf=" ENCLLC" ELSES 
IF CURSYS=GEQSY THEN SYMTASCSTARTSYM]$S"INCL2(" ELSE ERROR(C64); 
ines se eth Mises SPS YM ON git Po: CAL LGENTS TRUE SS 
END END ELSES 
IF F= BUINTERS THEN 
a BEGIN: aes pgtaecine is 
IF CURSY= EQLSY THEN PUTSYMC"S ") ELSES 
IF CURSY#NEQSY THEN a, ELSE ERRURC64)3% 
em Seeeas, ~ENO ELSE-ERRORC64)33 - ~ 
INSYMBOL32% 
PUTOUMMY3 STARTSY ie aa 
ee ST MPLEEXPRESSIONS & 
IF CURTYPE>0 AND TYPE1>0 THEN 
IF CURTYPEZTYPE, THENS 
ce ee eee EE RELORTRZINGY. THENS 
BEGIN 
IF TYPETABLETYPELI]»FURMANUMERIC OR CURTYPEZREALTYPE THEN 
es «= CHECK TYPESCTYPEL* CURTYPE 13% 
END ELSE 
IF TYPETABLEICURTYPE].FORMZSET THEN ERRUR(66)% 
So eaeD eeperede seek CEN ERR I _ ELSE CHECKTYPESCTYPELs TYPETABICCURTYPEJ+SETTYPE)#% 
IF CURMODES= BITPATTERN THENZ 
BEGIN SYMTABLSTARTSYMJ#S" REALC™S PUTSYMC™)") ENDS % 
one ee ER CALLGEN THEN PUTSYM OT) DFR 
CURTYPES=SBONLTYPES CURMODEZ=BITPATTERNS% 
END34 
winneeen neee oe  EXPRLEVEL SS EXPRLEVEL 43% --- 
IF EXPRLEVEL=O0 TRENY 


BEGINS 
wee eee OTF. CURMODESBITPATTERWN THEN® 
BEGIN¢ 
SYMTABLFIRSTSYM] 3= " REALC™I% 
Seo et PUT SYMONE eas” | 
ENDS% 
WRITEEXPR34 
ft tee eel a ND, Sapte od 
END OF EXPRESSIONS SY 
% 
hea Beil Sa Sette ioe deal eh RE ae A Mine re oie at Oat 
DEF INE BOOLEXPR= 
BEGIN2 


wee ee PUT DUMMYS | EXPRLEVEL-3815;-. EXAPRESSTONJ& 
IF CURTYPE>O THEN If CURTYPEZBUULTYPE THEN ERROKC1703% 
IF CURMUDEZBITPATTERN THENS 

ee  -BEGLN. SYMTABCL I] sa". Bes — PUTSYHC!I%) ENDS 
EXPRLEVEL?=03 WRITEEXPRI4 
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END OF BOOLEXPR#s&% 
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eee a yas. eae 
PROCEDURE CUNCAT 


BEGIN INSYMBOL; 
IF CURTYPE>0 YHEN® 


4 


ener ewe ayer PUTTEXT CNCONCAT!N) 3 - 


emeaehe eee el A) CE Ge a 


END #3 


REVEZELSLLY ELEY SEU SEES OEDERABLDBR EO ARLABAD ADAM AB MAL KAA A 


LL YES LELEELEEY BEELER EI IIE SII DID BEE AAE BERLE BEE EEBEEREEEBB BE 


78 we cn Om Ee ee ee a ee 


RX Be 


INTRINSTC ROUTINES, 


ae RR a af at BR BF BC 


beex NCONCAT™ tax 
Yoke a KR aH 


EXPRESSTONS4 


IF TYPETABICCYURTYPE],FURMANUMERIC THEN ERRORC17)3% 


% 


INSYMBOL3% 
IF CURSY=LPAR THENA 


BEGIN’ 


INSYMBOL3 


IF CURTYPE>0 THEN 
ee TP TYPETABLECURTYPEJ 6FORMDALFA THEN ERROR(17 034 
IF CURSY=COMMA THENZ 


BEGI 


NA 


PUTSYHCMs 3 
_—IF-CURSYSCOMMA THENS -. 


BEGI 


PUTSYMC'»")5 
eee DRCURSY=ECOMMA 


BE 


Ne 


GIN 


PUT-SYMCY CI) 8% 


EXPRESSION;4 


Sos! INSYMBOLS ... EXPRESSIONS &% 
IF CURTYPE>0 THEN% 
IF TYPETABL{CCURTYPE) «FORMDALFA THEN ERROR(17)3% 
peer ee LELCURSYSCOMMA..THENY..W - 

BEGINS 


PUTSYMC st )3 


vues PUP OM CS gt) & 


PUTSYMC™) "25% 
IF CURSYZRPAR THEN BEGIN ERRORC3)3 SKIPCRPAR) ENDS 


INTEXPRsA 


INTEXPR3& 
THENS 


INTEXPR#4 


_PUTCONSTCCARDCNT 34 


--END --ELSE—BEGIN- ERROR(C3)4 SKIPCRPAR) ENDS 


END ELSE BEGIN ERRORC3)3 SKIPCRPAR) ENODS2 
END ELSE BEGIN ERRORC3)> SKIFCRPAR) END*4 
fee END. ELSE.WBEGIN -ERRORC323—SKIPCRPAR) ENDS% 

END ELSE BEGIN ERRORC3)3 SKIPCRPAR) ENDS 
CURTYPE?=REALTYPE3% 


END OF CONCATS& 
a 


wee el 


_ LF—GURS Y=RRAR.THEN—INSYMBOL? & -. - 


PRUCEDURE PREADCCHANGELINE)3% 


01821 
01622 
01823 
01824 
01825 
01826 
01827 
01828 
01829 
01830 
01831 
01832 
01833 
01834 
01835 
01836 
01837 
01838 
01839 
01840 
01841 
01842 
01843 
U1B844 
01845 
01846 
01847 
01848 
01849 
01850 
01851 
01852 
01853 
01854 
01855 
01856 
01857 
01858 
01859 
01860 
01861 
01862 
01863 
01864 
01865 
01866 
01867 
01868 
01869 
01870 
U1871 
01872 
01873 
01874 
01875 
01876 
01877 


© 


Cy. 9): Oe “a 


C) 


SS 6 


r 


( 


Moore tusiness Forms, inc. sv 
i 


S 


VALUE CHANGELINE; BODE AN: SANGRE NES 
anon BRO LNs: yeas a2 
INTEGER FILELD»F I 
BOOLEAN CHECK; 
GEN CT -HEG ENN 5 29-255 ~ a 
FILEPARAMCINPUTFILE)3 FILED! =F ILENAMES 


IF TYPETABLCCURTYPE]+FORMSFILES THEN ERRORCS5)} 


$F FS Y MK INDECURSY J ZTERMENAL—THENS | - 
BEGINS 
IF CURSY NEQ RPAR THEN’ 
———-DO—BEGIN%- ———--—-------- -- 
WHILE CURSYSCOMMA Dy INSYMBUL} % 
IF CURSY= TOEN TIE TER THEN 
Soi oe eek aie Ge ele bso hy get Fa et Saeed cles 
SEARCHs% 
IF FOUND THENY 
a ee BEG ENB nm nee ce meee 
IF THISIO. LDCLASS =VAR ORS 


THISIDe IDCLASS=CONST AND POOLE ANG Mele Web oRiae? THENS 


ee Se Ee BEG TN es es: 
VARIABLES fF fSTYPETABILCURTYPEJ. FORME % 


IF F= NBHIER TC OR FSFLOATING GR F=CHAR THENS 


SeeSSeee A BEGINE ete sere 
CHECK !=CHECKUPTION AND F#FLUATING?% 
WRITEEXPR3 GENCNERN 29605 
Soe a tole ae TE CHE CK -<THEN GENC CHECK ("POs 2 )5 


GENC™PREANC'»622)5 GENTIDCVF'SFILELDs5)3 


GENIDC"™V",FILEID,» 523 GENC™s "51,7788 
pita oe Ae ee eee GENLOCT I sF LUE LOe oe » GENUS ale (0s 
IF F=NUMERIC THEN GENINT(2) ELSES 


GENC™s tts ds 7 54 


IF F=FLOATING THEN GENINTC3) ELSE GENINTC1)3% 
GEN Cth thy dep ZF -GENINTCCARDCNT) 3 «GENC™) "e127 234% 


IF CHECK THENS 
BEGINS 


nn ne ee GENCY 8 ZR -GENINTC TYPETAB2ECCURTYPE] 3 
"y1e7 5% 


GENINTCTYPETAB3CCURTYPE])% GENC"» 
SEN ENT CCARDENT 3 GENC™I"s 127 )5% 


aS art tas he SN ees ie acted 


END ELSE BEGIN ERROR(62)3 INSYMBOL ENDS2 


END ELSE BEGIN ERRORC8)4 INSYMBOL ENDs4&% 
END EL SE--BEGIN -ERRORG-123-1NSYMBOL ENDS 
END ELSE ERRORC9)3% 
GENC™S "s197)5% 
vo END UNTTL- CURSYFCOMMASS .- 


If CURSYZRPAR THEN BEGIN ERRURC46)3 SKIPCRPAR) END#% 


IF CURSYSRPAR THEN INSYMBOLs4 
eGR NDE Beno et eodee. 2 fonds ie eta ea et 
IF CHANGELINE THENS 
BEGIN& 


OG ENCIRL INE C1 622)5.—-GENIDCMEMSRILELO25)3 GENC 2,197 )5% 


GENIDC"V",FILELDs 525 GENC™s "+197 15% 
Cee eee area GENC*) "sl s7 3% 
ie cate ENS eee ee aes (ee oe ee! Juels Y 
GENCMEND" 945595 % 
END QF PREADs4 


do Set Bh eae ae . wile ei eaer, Gel eam, , Seesauterieees & 


GENCs"sde lie 


01878 
01879 
018890 
01681 
01882 
01883 
01884 
01885 
01886 
01887 
01888 
01889 
V1890 
01891 
01892 
01893 
Q1894 
01895 
01896 
01897 
01898 
01899 
01900 
01901 
01902 
01903 
01904 
01905 
01906 
01907 
01908 
01909 
01910 
01941 
Q1912 
V1913 
01914 
019415 
01916 
01917 
01918 
01919 
01920 
01921 
01922 
01923 
01924 
01925 
01926 
01927 
01928 
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PRUCEDURE PWRITECLINEFEED)3% 
————-—-VALUE-LINEFCEDs.KOOLEAN-LINEFEEDSZ - eee 
BEGIN 
INTEGER See aay 
POTN TER—P3 4% — — Bee eas Daca a Jes ied 
GENC” BEGIN» 792)3% 


FILEPARAMCOUTPUTFILE)s FILELDS=FILENAMES % 
———-——---——-— ] F-T-YPETABLICCURTYPE-e.FORM=FILES THEN. ERROR(85)33 
IF SYMKINDCCURSYIZTERMINAL THENS 
BEGIN4 
—---—-T. &- CURSY- NEQ- RPAR—THENS- 
DO BEGING 
WHILE CURSY=COMMA 00 INSYMBUL3% 
rT CURSYFALPFACONST AND CURLENGTH>7 THENS 
BEGINS 
GENC™WALFAC™s622)53 GENIDO"F"sFILEIDs5)3 GENC™ss197)3% 
ween GENT DCIS FILET Ds 5.23 --GENG Ms 91975 % bed 
GENIDC"I",FILEI De 5)3 GENC™»o197)5% 
=STRINGPNTS& 
a eee FOR. TF 4--STEP-7 UNTIL 6O DUY 
IF ISCURLENGTH THFEN% 
BEGIN’ 
te DR ALGOLCNT<10- THEN WRITEALGUL3% 
REPLACE ALGCLPNTSALGULPNT BY """, P3P FOR 7, HM, Hews y 
ALGULCNT#=A,_GOLCNT@1032 
a ee ee ENDUELSE.GENC "O02, 296)39% ae 
GENINTCCURLENGTH)$ GENC™*"5157)3% 
GENINTCCARDCNT)$ GENC™)%51527)5% 
peti a tc NOY MG Ola % oe Lee ~ 
ENO OF ALFACONST ELSE 
BEGINS 
co GENO PWRITECS 29103 GENTIDO"F'SFILEID,5)93 GENC™»"5197)3% 
GENIOC™V"sFILEIDs5)3 GENO» %5197)3% 
GENIDC"I",FILEIDs5)3 GENC™s"s197)3% 
2 LAST SY ae a — 
EXPRESSIONS =TYPETABLECURTYPE].~ FORM#% 
GENC™s"s1, ar 
we RP RNUMERIC. OR--FEFLOATING OR FSCHAR OR Fa ALFA ORS 
CURTYPE=BOGLTYPE THENS 
BEGINS 
ne ee LPF ENUMERT @ THEN. GENINTCL) ELSES 
IF FSFLOATING THEN GENINI(2) ELSES 
IF FH=ALFA THEN GENINT(5) ELSES 
Bie ea Ser et cnn) IF .FSCHAR. ---THEN. GENINTC4) ELSE GENINTC 3932 
GENC "se "5157)3% 
IF CURSY=COQLON THEN2 
Soe as at eae A ot ENA. ne ren 
INSYMBOLS EXPRESSIONI4 
IF TYPETABLCCURTYPEJ+FURM NEQ NUMERIC THEN ERROR(17)3% 
Sane ee ee. EN Ny My a2) be cae < 
IF CURSY= =COLON THEN® 
BEGINS 
nn on ee DF OF APL OATING THEN ERRORC A354 
INSYMBOLS EXPRESSIUN}# 
IF TYPETABICCURTYPE]*®FORM NEQ@ NUMERIC THEN ERRORC17)3% 
pee et Ee eee est a GENC™s",19793% 
END ELSE GENCY™15%s325)3 x 


Q1935 
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01937 
01938 


-01939 


01940 
01941 


O1942. 


01943 
01944 
01945 
01946 
01947 
01948 
01949 
01950 
QO1951 
01952 
01953 


O1954- 


01955 
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01957 
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01959 
01960 
01961 
01962 
01963 
01964 
01965 
01966 
01967 
01968 
01969 
01970 
01971 
01972 
01973 
QOL974 
01975 
V1976 
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END ELSES 


besieeeh ies SiR Deere --BEGING. - 


IF Fs FLOATING THEN GENINTC16) ELSE 


IF F=ALFA AND LASTSY#ALFACUNST THEN GENINTCCURLENGTH) ELSE 


eee Pe ee oo TE PS ALR A THEN GENINTC7) ELSES 
IF F=ChAR THEN GENINTC1) ELSE GENINTC(10)34 
GENC™p» "Let esha dod 

# eH END RB ne ee 


END ELSE ERROR C1793 % 
GENINTCCARDCNT)S GENC™)"s1le7)3% 
mane eee END OF EXPRESSIONS & 
GENC™S "e157 54 
END UNTIL CURSY7COMMA;4 
TF CURSYAZRPAR. THEN. BEGIN ERRORC46)3 SKIPCRPAR) END3% 
IF CURSY=RPAR THEN INSYMBOLs4 
ENDs2 
—————----— FILENAMES SF-ILETO3 % occ: -_ 
IF LINEFEED THEN’ 
BEGIN& 
wee ee HIN TEGER- DUMMY 3 B-- > e 
GENC™WLINEC™»622)3 GENIDC"F" sR LLENAME 2 5)3 GENC™s "sl e7 3% 
GENIDC™V",FILENAMEsS)3 GENC™s "eds 7 3% 
veer GENTOC™IMSFILENAME 25)3- GENC™I "497934 
END34 
GENCTEND' 2455 )5% 
————---—-—-END-OF-PWRITEs4----  --- - 


% 
% 
___._._- PRUCEDURE-F ILEHANDLINGCPROCNUM)3 %*** FILE HANDLING PRUCEDURES3 
VALUE PROCNUMS INTEGER PROC\UMS $a ke 
BEGIN Bake 4) PUT 
Se ee INTEGER SP Paes a2 ELS. .aban opens -  bkee 2) GET 
CASE PROCNUM OF Baek 93) RESET 
BEGIN 3 eee 4) REWRITE 
Bese ees CENCMRUTIS Shoe a Se Beee 5) PAGE 


GENC"GET"s3e5)5 % 
GENC™RESET"2553)3 & 
we ee GENCUREWRITE 9 Pad) 3K - eH oH 
GENC"PAGE"s494)3 x 
END} & 
wee GENO OF L7G FILEPARAM(C ODS & 
IF FILENAME=0 THEN ERRORC78)4 & 
FS=TYPETABILCURTYPE] eFORMS% 
we UFR RFILES AND -PROCNUM=5 THEN ERROR(60)3% 
GENIDC"F'’sFILENAME25)3 GENC sels 734% 
GENIDCUV"SFILENAME?5)3 GENC ssl 57 3% 
a GENT OCNIM FILENAMES 5 )3 -GENC MO" 1a 75% 
GENINTCCARDCNT)$ GENC™)"sde7 94 
IF CURSYZRPAR THEN BEGIN ERRORC40)4 SKIPCRPAR) ENDSY 
a TE. CURSYSRPAR-THEN [TNSYMBOLSS 
END OF FILEHANDLING3% 
% 
Seek iah oe8 5 Sah Se te 
PROCEDURE PACK3% 
BEGIN& 
Rnatotins! JosisieiuT NT EGER ol bale sere 2 
GENC™PACK(%s523)3% 
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02013 
020144 
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INSYMBOL3% 


ee a I COURS VEL PAR: THENT 


BEGIN« 
INSYMBOL; ¥% 
TP CUR SYS IDENTIFIER THENZ 
BEGINS 
SEARCH3% 
Cie ee Ss dee PUNO TREN SY Lee 
BEGINS 
IF THISION.IOCLASS=VAR THENS 
we ees 6. BEGGING | -- 
T: =TYPETAGICTHISID, TYPE)3 % 
IF TeFORM=ARRAYS THENS 
pe a - BEGINZ—....  - 
ITt=T, INXTYPE3% 
IF TYPETABILCT,ARRTYPEJ*FORMZCHAR THEN ERRQR(88)3% 
rn rn ee enn mm GENIN CTV, LOOOXTHISLEVELTTHISINDEXs 5) 54 
IF THISLEVEL>4 AND THISLEVELZCURLEVEL THEN ERROR(5)3% 
GENC"s"s51,7)5 GENINTCTYPETAB2ZLCTHISID« TYPE] )3% 
or eee GENC st dy 705. - GENINTCTYPETAB3ETHISID« TYPEI)3% 
END ELSE ERROR(88)3% 
END ELSE ERROR(88)3% 
per ee END ELSE-ERRORC 13 %-—--- 
END ELSE ERROR(C9)3% 
INSYMBOL;% 
———-----— --T F--CURSYSCOMMA-THENZ |. ...... 
BEGIN: 
GENC*s",457)3% 
a --- ENSYMBOLSG EXPRESSIONS = CHECKTYPESCIT»sCURTYPE)3% 
IF CURSY=COMMA THENY 
BEGINS 
ee GENCE XW. 
INSYMBOL> % 
IF CURSY= peer E TE THENS 
Ba pet SS ae - BEGIN... vee 
: SEARCHS % 
IF FOUND THEN 
fee es ta et Be -BEGIN’.. _... 
IF THISID, IDCLASS= =VAR ORS 


THISIN, LDCLASS=CONST AND BOOLEANCTHISIDeFORMAL) THEN 


wee ee ee BEGINE= 2 0 ee 
VAR[TABLEsS WRITEEXPRIY 
IF CURTYPE>0 THENS 
Sh At sree Se eee os . IF TYPEPABLCCURTYPEI] +¢FORMZALFA THEN ERROR(12)33% 
END ELSE €RRORC8)3% 
END ELSE ERROR(1)3% 
en END. ELSE. ERROROO DES... 
END ELSE BEGIN ERRORCB89)3 SKIP CRP AR) ENDAZ 
END ELSE BEGIN ERRORC39)s SKIPCRPAR) ENDS 
+. TF CUR SYZRPAR. THEN. BEGIN ERRORC46)4 SKIPCRPAR) END3% 
IF CURSYSRPAR THEN INSYMBOLUS 4 
END ELSE BEGIN ERROR(C3)3 INSYMBOL ENDS 2 
——--GENC "ss 1.97.3. GENINTCCARDCNI)3 GENC™)5197)3% 
END QF PACK32 


erent en tee me pent pe me et erent Fe vee | ee ee meee eee 
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BEGIN’ 
a INTE GER- TT TAK He eee ee = 
GENC™UNPACK(™s791)3 INSYMBOLS& 
IF CURSY= aioe THENA 
ieee BE GING © a pee ae 
zi INSYMBOL; EXPRESSION: % 


IF CURTYPE>0 THEN IF Pe eee FORMZALFA THEN ERRORC17)44 


—-—----E F-- CUR SY. COMMA—THENS- 
BEGINS 
GENC™ss197)3 INSYMBOL3 4 
__---—--LE_CURSY= IDENTIFIER -THENS- - 
BEGINA 
SEARCHs % 
Sacer eee ee POUND SIE Nee ces oe 
BEGINS 
IF THISIDeINCLASSSVAR THENZ 
oe BEG NB ee 
THSTYPETABICTHISID.« TYPEDSS 
(F TeFORMSARRAYS THEN? 
i ne BE GIN mee 
LT? ST.INxTYPESS 
[F TYPETABICT«ARRTYPE] »FURMZCHAR THEN ERROR(88)3% 


poe DF-PHISEEVEL> 1 -AND THISLEVELZCURLEVEL THEN ERRORC5)+4 


GENIDC"y"s 1000xTHISLEVEL+THISINDEXs 523% 
GENC's",197)5 GENINTCTYPETAB2CTHISID. TYPE) 23% 
Si ee ee elec ae GE Clte ie Ton 1 GEE TCT YVR TAB SE THE SIOy TYPE I)3% 
END ELSE ERROR(88)4% 
END ELSE ERROR(88)+% 
ee eer DS EEOC ERROR ELI 8 soe 
END ELSE ERRORCQ)3% 
INSYMBOL3% 
si a i Sic ty, [Ff CURSY=COMMA.-THENS-—~ . 
BEGIN 
GENC ss Le 73% 
Wn INSYMBOLS. EXPRESSIONS CHECK TYPESC IT» CURTYPE) 3% 
END ELSE BEGIN CRROURC89)3 SKIPCRPAR) ENDS 
END ELSE BEGIN ERRORCa9)s SKIPCRPAR) ENDS 
TR CURSYARPAR THEN BEGIN -ERROR(89)3.-SKIPCRPAR) ENDS 
IF CURSY=RPAR THEN INSYMBOL3% 
END ELSE BEGIN ERRORC3)3 INSYMBUL ENU#Z 
-—-GENC Haste Zid. GENTNTCCARDCNTIS. GENC™) e159 7234 
Ee OF UNPACK3% 


ee ee 2th as Praaiatts cies Baht? a Eade a 


PROCEDURE NEWDISPS 
BEGIN? 
ote ENT EGE Reid $a eee 
IF CURNAMEJ="3000NEH" THEN “GENCTNENC" S404) ELSEA 
BEGIN GENC"DISPOSE",7s14)3 eee ENO#4% 
i EN SVU OLS Bose a es ee 
IF CURSYSLPAR THENS 
BEGINS 
J NSM BOLLS Bee eee ee 
IF CURSY=IDENTIFIER THENS 
BEGINA 
ea a EAC hes Gee ee 
IF FOUND THENS 


Skee "NEW" s "DISPOSE" 
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BEGINS 
Aa OC VARIABLE 2 -- 
| IF CURTYPE>0. THEN. a TYPETABLECURTYPE 1] oF ORM= POINTERS THENS 
BLGINS 
Sa ee -GEN Cited! p-lee-7 dd - : 
=TYPETAB1(CCURTYPEI.- PUINTTYPEs% 

a =TYPETABL{CT1).SIZE5% 
TLD 1023- THEN -ERROR CBO 178 - 

GENINTCTL)5 GENO) +19 705% 

RIID ELSE ERRORC B14 
ee END -ELSE--BEGIN-ERRORCL)8--INSYMBUL ENDS 2 
END ELSE ERROR(9);% 
WHILE CURSY=COMMA NO% 

ee -BEGIN- INSYMBOLG&-- ---- : 

IF CURSY NEO IDENTIFIER THEN ERRORC9I54% 

IF CURSY NEw RPae. THEN LINSYMBULSS 
ae ENDS BAH = at, 

END ELSE BEGIN ERROR(5S8)3 “Sk [PCRPAR) ENDS 4% 
IF CURSYZRPAR THEN BEGIN ERRORC46)s SKIPCRPAR) ENDS 
ce TE. CURSY=RPARW THEN -TNSYMBOL SG 8. 
END OF NEWDISPs3% 


A 
4 
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a 
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4 


o 


7) 
4 
4 


$ PAGES 
en BREELELL EEA SELL LAL GE LELY ELE ELEZELBRABE RBBB ZBRBR MARBLED MK ABABA LABS 
% 
& 
pied nupnate Oe ete Ae ead ia Steet 
& “PART 6t THE STATEMENT PARSER, 
% ee ed ee ke ened 
eee cease ee mien Aha es, os epee ncoec eae eth 
& 
4 
REL EA EEE ELE LLLEELEELELY EGE L EBLE RLABBLEDELLAERS LARD BEAL MEDAL DALEK ABR 
3 
3 
SI hes ioe ote Se ests Puce aed Mas hid . 
PROCEDURE STATEMENTS FORWARD? % 
a 
we PROCEDURE. ASSIGNMENT? &...0.-2..0 2. | 
BEGIN 
INTEGER LEFTTYPEs% 
poe sses SLADE SASSIGNP EMIT 2 eo: 
IF FOUND THEN% 
BEGINS’ 
$e [Pa AIS TD, PDC LASSSVAR. ORR: 
THISID.IOCLASS=CONST AND BUOLEANCTHISIDs FORMAL) THENS 
BEGIN’ 


wee VARIABLES. --LEF-TTYPEsBCURTYPES& 
ASSIGN: IF CURSY#ASSIGNSY TKENZ 

BEGIN ERROR(28)3 SKIPCASSIGNSY)34 
TF SYMKINDECURSYISTERMINAL THEN GO TO EXIT#S 

ENDs% 

INSYMBOL3% 
IF TYPETABLELEFTTYPE].«STRUCT?20 THEN’ 

BEGINS 

ERROR(95)3% 

wile Se ete ee END SO bei eet ed Gone BS oe 

BEGIN’ 
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WRITEEXPR3 GENC*S="5296)5% 


Roce ce eee 6 OCHECKOPTION AND TYPETABLCLEFTTYPE]FORMSCHAR THENS 


CHECKEXPRC(TYPETAB2ELEFTTYPEJs TYPETAB3[LLEFTTYPEJ) ELSES 
EXPRESSION; 4 
a eee WRITEEXPRIE 0 --- 
CHECKTYPESCLEFTTYPEsCURTYPED 8 
ENDS 
Ss --END er 
BEGIN & FUNCTION “ASSIGNMENT « 
TIF THISLEVELAZCURLEVEL@1 OR THISINDEX#CURFUNC THEN ERRORC5)3% 
oe ee GENTOO V's LOOOXTHESLEVELTTHISINDEXs5)3; LEFTTYPESSTHISI Oe TYPES 
INSYMBOL4 GO To ASSIGNs4 
ENDs% 
ma -END-ELSES--- - - 
BEGINS 
SKIPCASSIGNSY)3% 
ie TF -CURSYFASSIGNSY- THEN GO TO ASSIGNSS 
END34 
EXIT34 
ww -END-OF ASSIGNMENTS 4% — 0 ------- | 
4 


a 


a -PRUCEDURE. COMPSTATS & - 


BEGINS 
INTEGER BEGINNUM3% 
ese ee ABE AI Mp ei cck | ye teee Gre 
% 
BEGINNUM? SNUMBEGINS:=NUMBEGINSt14 MARGINC™ O"sBEGINNUM)3% 
See AGENCOBE GIN’ »Oa9) $4... ats 
D0 BEGINS 
IF CURSY= Sera oe CURSYSHEGINSY THEN INSYMBOL3% 
—— STAT 2 STATEMENT 3% ; - 
GENC™S "51979353 
IF CURSY=ELSESY THEN BEGIN ERRORC20)3 INSYMBOLS GO STATM ENDs2& 
ee TE SY MK INDICURSYISINITIAL. THEN BEGIN ERROR(C21)3 GO STATM ENDS% 
END UNTIL CURSYZSEMTCOULUNS2 
IF CURSYZENDSY THENY 
wee BEGIN ERROR(24)3 SKIPCENDSY)34 
IF CURSYZENODSy THEN BEGIN INSYMBOLS GO TO STATM ENDS% 
END34 
moe GENO END 252 4)5-- MARGING E*,8EGINNUM) 3% 
INSYMBOLS % 
END oF ea 
ee 
& 
PROCEDURE JFSTAT#4 
—————--BEGIN®. - - .----. eee. 
LABEL EXIT#S 
GENC" IF", 396 )3% 
See SENS YMBOL F-BOULEXPRe 
IF CURSYZTHENSY THEN% 
Eo" TF CURTYPE?>0 THEN EA ReRn eta 4 
mr nn -~ SKIP-CTHENSY 3% 7 
IF CURSY#THENSY. THEN 
BEGIN IF CURTYPESO THEN ERROR(C2/)3% 
ma ee ee ee TP SYME TNOLCCURSYJISTERMINAL THEN GO TO EXLTs% 
ENDS ENDs& 
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GENC™ THEN"',6s3)5% 


jee INSYMBOLS © STATEMENTS. 


IF CURSYSELSESY THEN% 
BEGIN GENC" ELSE,6,3)3 INSYMBULS STATEMENT ENDSS 
eieeeeU EN isu ne eas” ae eet 
ENP OF IFSTATIS. 


a nike 
PROCEDURE CASESTAT32 
BEGIN : 
DEF INE. CASEHASH(N)=(N)1038539] MUD MAXCASES ASS 
INTEGER ARRAY CASETABLOIMAXCASESJ3% 
INTEGER CASENUMs CASE TYPEsNCASELABS» TEMPVARNUMs CONVALsCONTYPEs Co T3% 
ea BOOLEAN... ZERDLABS FIRSTS 
% 


CASENUM?=NUMCASES!SNUMCASES+13 MARGINC"CB™sCASENUM)3% 
Tao nm LEMPVARNUMSSNUMTEMPS S=NUMTEMPS #144 
IF TEMPVARNUM>MAXTEMPS THEN ERRURC16)3 
GENC"BEGIN",6,3)3 GENIDC"T',»TEMPYARNUMs2)3 GENC*&='»2,6)3% 
a IT NSYMBOLG---EXPRESSIANG SZ... 
GENC"sS"s157)3 CASETYPES=CURTYPESS 
IF TYPETABLECASETYPE]..FORMZFLUATING THENS 
mo BEGIN ERRORCL793-. CASETY.PEt=0. ENUIY 
IF CURSYZOFSY THENS 
BEGIN IF CASETYPE>0 THEN ERRURC1893% 
Seine ee SKIP COR SY IRE 6 + pee os 
IF CURSYSOFSY THEN INSYMBUL ELSES 
IF CASETYPE=0 THEN ERRORC18)3% 
a END ELSE --INSYMBOLG%-- 0... 
00 BEGINS 
WHILE CURSYSSEMICQGLON DU JNSYMBOLZ% 
ee Gs, et FERS PET RUBS Bok. oon 
IF CURSYZENDSY. THENS 
BEGINS 
a eles EGE NCU Teg 8 BS Bi a ee ce 
OU BEGIN®S 
IF FIRST THEN FIRSTS=FALSE ELSE INSYMBOLS% 
Beets ial oes ay” CONSTANT CCONVELS CONT YEE D3 8 
IF CONTYPE>0O THEN 
BEGINS 
wee ae 2 WTF. CASETYPESO. THEN..CASETYPE S=CUNTYPE ELSES 
CHECKTYPESCCASETYPEs CONTYPE)3% 
GENTDC 7s TEMPVARNUMs2)5 GENC'S"4157)5 GENINTCCONVAL)3% 
ee 6. 6 NCASELABS 2 =NCASELABS 413% 
IF NCASELABS<HAXCASES THEN 
BEGINS 
ee ee TR. CONVALSO- THEN 
IF ZEROLAB THEN ERRUR(31) ELSE ZERULABS$=TRUE ELSE% 
BERNE 
we =CASEHASH(CONVAL 34 
FoR Ci=CASETABETI WHILE C¥CONVAL AND C#O Dox 
TeSIF TsO THEN MAXCASES ELSE T=ya% 
ee ne DE. O# 0. THEN ERROR(31) ELSE CASETABLTI]!=CONVAL3S 
ENDS % 
END ELSE IF NCASELABS=MAXCASES THEN ERRORC30)3% 
wee ee we DF CURSYS COMMA. THEN. GENC™ Ob" 455 93% 
ENDs% 
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END UNTIL CURSYzCOMMAsS 


faces ee i e Se oe GENCE STHEN o Oa 8508 


IF CURSYZCOLON THEN BEGIN EKKOR(20)3 SKIFCCOLUN) ENDs4 
IF CURSY=COQLON THEN legs 
oe = SEATEMEN To3 Bene 
IF CURSY*SEMICOLON AMO. CURSY? ‘END SY THENS 
BEGIN ERROR(21)35 Sr Conte oean) END3& 
nn END GO maven mene 
IF CURSY= SENTCOLON THEN GENCY ELSE"» 6s3)3% 
END UNTIL CURSYZSEMSCOLONS& 
ER CURSYZENDSY-—THEN BEGIN. ERRURC24)3 SKIPCENUSY) ENDIS 
GENC™ ENDtsS9f)3 MARGINOMCE’s CASENUMIS4% 
NUMTEMPS?= NUMTEMES 574 
a INS VMOU ie eee ies Sy B toed 3 
END OF CASESTATS % 
4 
Sate ie ape AS OS a a oe Pa ee cae eRe AS 
PROCEDURE WHILESTATS % 
BEGINS 
a | ABEL--STATMSEXETIR > 
GENC"WHILE™'s0s3)3% 
INSYMBOL} BOOLEXPR;4 
a EF CUR SY ADOSY--THENSD ~~ 
BEGIN IF CURTYPE>0 THEN ERRURC19 93% 
SKLPCDOSY)3% 
YF CURSYZDOSY--THENS 0 
BEGIN IF CURTYPE=0 THEN EKKOR(I9)3 % 
GQ ae If UMEINDECUR Ss INITIAL THEN STATM ELSE EXITi’ 
me END END IR -- ee we - 
GENC" DOM, 45 )38 
INSYMBQL 3% 
ST ATM STATEMENT EB 0 ce re eee cere ee 
EXITi& 
END OF a Neag 
seh es ER Meg ret ae Se he cea 
% 
PROCEDURE REPEATSTAT> & 
we BEG-LN $e a ee 
INTEGER REPNUMS & 
LABEL TEs 


AS a I oo aa SLs eben es Me Et Bore 


REPNUN# =NUMREPS! ENUMREP S413 % 
MARGING™ R',REPNUM) 54% 
_-__GENCMU0's 326)3—.GENCTBEGIN' 2625)9% | 
00 BEGIN’ 
INSYMBOL>S 
NEWTRY2 STATEMENTS SO. 2 2 ee ee 
GENC"S "sie 7s 
IF CURSYSELSESY THEN BEGIN ERRORC2Z0);INSYMBOLS GO NEWTRY ENDS 
I E SYMKLNDOECURSYIJSINITIAL..THEN BEGIN ERRORC21)3 GO NEWTRY ENDS4 
END UNTIL CURSY#SEMTCOLONS% 
IF cURSY AUN TIES) THENs 
————- —— -- -—- BEG I N= 2 wo cee tes 
ERROR C22) 34 
WHILE CURSYZUNTILSY AND SYMKINDECURSYJZINITIAL DO% 
BEG IN-INSYMBOLS- SKIP CUNTILSY2. ENDS 
IF CURSYZUNTILSY THEN GO TO WENTRYS& 
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i END3% 02391 
GEN END 2 59-4 5..-GENCUUNTIL "2 653)5 MARGING™ Us REPNUM) 3% C2308 a se Sa 

= | INSYMBOLS BUOLEXPR3% 02393 
i END OF REPEATSTATS% 02394 
% a Gals hes eset aia ae le hlackes oat -.. . 02395 

% 02396 

O PRUCEDURE FURSTAT#% 2 02397 
PET ENY =) 30, eee es _. 02398 

m INTEGER VARTYPEs VARHUMeLLIMAULIM? 02399 
BOOLEAN DOWNS 02400 

iia aaa tA B EL GTA TUG teen e en os ie : -. 02401 

ze % 02402 

QO GENC"BEGIN',653)3% 02403 
ENS YMBOLS BO Ow. eer ae V2404 

“Bs IF CURSY=JDENTIFIER THENZ 02405 
\-! BEGINS 02406 

SSEARCTG we eeecs ahs oh A Cer atl 02407 | ; 

OS IF FOUND THENS 02408 
~ BEGINS 02409 

a VARNUMS = LOOOXTHLISLEVEL#THISINDEXAS 02410 

e IF THISID»eIDCLASS=VAR ORS 02411 

THISIDeIDCLASSSCONST AND BOOLEANCTHISID+FORMAL) THEN? 2412 
Ses a Se oe ee AE GENS are eet Serres eae 02443- 

= IF THISLEVEL>} AND THISLEVEL<CURLEVEL THEN ERROR(5)3% 02414 

4 IF THISLEVEL>CURLEVEL THEN ERRURC83)4% 02415 
ee VARTY PES STHISTO TYPES - 02416 

sy IF TYPETABI(VARTYPE] sFORMSCHAR THENS 02417 
. BEGINS 02418 
eee LLIMPETYPETABR2LVARTYPE] 2, ULITMS=TYPETAB3LVARTYPEI3% 02419 

i END ELSE BEGIN ERROR(12)3 VARTYPEs=0 ENODS% 02420 

Ss END ELSE ERROR(§)3% 02421 

i Sete eon  ENDGCE LSE ERRORCLIE%. aes. nce: fe 02422 

a END ELSE ERROR(9)3% 02423 
O INSYMBOLS & 02424 
a RCURSYZASSIGNSY. THENS . 02425 

ni BEGIN ERRORC28)33 02426 
= SKIPCASSIGNSY)3% Q2427 

I  CURSYSASSIGNSY. THEN INSY.MBOL ELSES 02428 

IF SYMKINOCCURSYJ=SINITIAL THEN GU TO STATMS% 02429 

O END ELSE INSYMBOL3% 2430 

pe GENTIDOMV'VARNUM 2573). GENC8ENS 121) 5% 02431 
IF CHECKOPTION THEN CHECKEXPR(LLIM*ULIM) ELSE EXPRESSIONS 02432 

O WRITEEYPR3& 02433 
fete GEN CMe IS Lot) ee 02434 . 

IF VARTYPEsO THEN VARTYPE? sCURTYPE ELSE CHECKTYPESCVARTYPE,CURTYPE)$ 02435 

O NUMTEMPSt=NUMTEMPS+43 IF NUMTEMPS>MAXTEMPS THEN ERROR( 16)3% 02436 
wR CURSYET.OSY. THEN. TNSYMBOL ELSES . . 02437 

os IF CURSYSDOWNTUSY THEN BEGIN DUWN:=TRUES INSYMBUL END ELSES 02438 

Y BEGIN IF CURTYPE20 THEN ERRORC23)3% 02439 
Spee Ste eee OKT PE TUSY PR, ee ra 2440 

ss IF CURSYSTOSY THEN INSYMBUL ELSE O2444 
K BEGIN IF CURTYPE=0 THEN EKROR(23)5% 02442 
a eT SYMKTNDECURSYISINITIAL THEN GU TQ STATMS% UZ443 

eo ENDs END;% 02444 
— GENIDC'T™sNUMTEMPS22)3 GENC™ENZ 197234 02445 
we -CHECKOPTION THEN. CHECKEXPROLLIM*ULIM) ELSE EXPRESSIONS4 Q2446 

O WRITEEXPR3% O2447 
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GENC™F elo 7 Fh 
Woven oT. VARTYPE®O THEN VARTYPES=CURTYPE ELSE CHECKTYPESCVARTYPEsCURTYPED3 
IF CURSYZDOSY THENS 
BEGIN IF CURTYPE>0 THEN ERRORC19)3% 
ibis emia ese cone SEE CH UGY pienso tae. 
IF CURSY=DOSY THEN INSYHBUL ELSES 
IF CURTYPESO THEN ERROR(1923% 
aa -END-ELSE-INSYMBOLGS 0-H 
GENC*FOR's4,5)3 GEN ID CV's VARNUM, D4 = GENC OND 14 7)5% 
GENTOC™V"sVARNUMs5)3 GENC™ "ste 3% 
woe TF -DOWN—THEN GENC™DOWNTO"s 722) ELSE GENC™UPTU"s5e4)5% 
GENTIDC"'T"sNUMNTEMPS»2)3 GENC™ DU",4s5)5% 
STATM: STATEMENTS 
————— --- —-—-GENC" END"'s524)3 ea 
NUNTENPS SENGHTEURSSyEE 
ENO OF PORTA Tae 
Sp ee 
a 
PROCEDURE esi al 
—————--—BEGINZ—-- ---- 
INTEGER 13% 
INSYMBOLs % 
aT F CURSYSINTCONST THEN - 
BEGIN I?=NUMLABS;% 
WHILE I21 AND LABTABLIJ-LABVALZCURVAL UO Ilt=J]=13% 
ees oe OTR TO THEN-ERROR(C15) 9% 
GENC"GO"s 356); GENIDCVL™sCURVALs 495% 
INSYMBOL 3 % 
---END ELSE ERRORC10)34 
a OF GOTOSTAT 4 
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BEGINS 
weer ee E-NTEGER STARTLEVEL*VERYFIRSTWITHSY Ms 1a 
REAL Ls% 
STARTLEVELS=TOPLEVELS VERYFIRSTWITHSYMS=NWITHSYMS3S% 
cone me =D O- BEGING ‘ gt td 
INSYMBOL 33 
IF CURSYs SIUENTIFIER THEN 
BEGINS 
SEARCH & 
FO FOUND THENS 
me BEGGING 
IF THISIO, LDCLASS= VAR THENS 
nee 
tn eee oe - VARTABLES-&. - 
IF CURTYPE>O THEN® 
IF TYPETABLICURTYFEJ] eFOKMZRECORD THEN ERRGR(98)3% 
a ees 2 | UF SIMPLEVARTABLE THENS 
BEGIN PUTSYMC"E")3 INSIDEBRACKETS!=TRUE ENO;& 
IF TOPLEVEL<«MAXLEVEL THEN 
Se eS. Be REST <: 
TOPLEVEL$sTOPLEVEL+ 13% 
D NAMETABS=TYPETABILCCURTYPEJ.RECTAB3ZS 
wee ee ee ee DS RECTYPES SCURTYPESS 
D.NUMPNTRSINWITHSSNUMPUINTERS3 & 
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De FIRSTWITHSYM?=NWITHSYMS#&% 


erected Sete J De BRACKETS INWITH?#REALCINSIDEBRACKETS)3& 


IF NWITHSYMS+NUMSYMS>MAXWITHSYMS THEN ERROR(63) ELSES 
FOR L:=4 STEP 1 UNTIL NUMSYMS DO 
ego taal ees, ds Se, on oa BEGTNGE: 22 
WITHTABLNWITHS SYMS]$=5YMTABLII3% 
er =NWITHSYMS*13% 
Sete oe Sao a TEND SS 
D. LASTHITHSYMS=NWKITHSYMS* 13% 
DISPLAYCTOPLEVELJ#$=be4 
Ge Apgsiald eB tention ees oto NDE EASES ERRORS BOO e. -= 
END ELSE BEGIn ERROR(8)3 INSYMBOL ENDs34 
END ELSE BEGIN ERRORC1)3 INSYMBOL END 
END ELSE BEGIN -ERROR(9)3. INSYMBOL END3% 
NUMSYMS $= 
NUMPOINTERS t= 03% 
END UNTIL -CURSYACOMMASE: | 
IF CUKSYZ00SY THENS 
BEGIN ERRURC(19)3 SKIPCDOSY)4% 
ce ee eee 6d F- CURSY= DOSY. THEN -INSYMBULG% 
END ELSE INSYMBOLS4 
a TRTEVELE SSTARTLEVELS-. NHITHSYMS# =VERYFIRSTWATHSY MS & 
ENO OF WITHSTAT3% 


set Ree ON ae Od ate oe 


PROCEDURE “STATEMENTS x 
BEGIN? 
Bites olen NACE EAN: OL oe ; 
LABEL LABFOUNDS 4 
= oe. CURSY=INTCONST THEN . .. % eee LABELED STATEMENT *** 
BEGING 
FOR It=FIRSTLAB STEP 14 UNTIL NUMLABS DO& 
eT. LABTABLI IU, LABVALECURVAL-~ THEN’ 
BEGIN IF LABTABLI}J«LABDEF=1 THEN ERRORC31)44 
LABTABCIJ+6LABDEFSS13% 
fee Ler a ae . GO .TO..LABFOUND 3% —. --. 
END} % 
ERROR(15)34 
Bees pease: LABFOUND%-GENIDC™L™,CURVALs4)3 ~-GENC™IMsls7 3% 
INSYMBOL. 3% 
IF CURSYZCOLON THeNa 
a eee ~- -BEGIN-ERRORG 26938 -- -- ee , : 
SKIPCCOLON)s IF CURSY=CULON THEN INSYMBOL3% 
END ELSE pennanee 
ENDS BR eR ee ee SoBe Ge ES 
& ” 
COMMENT *** START ae Su ATENEN kee SE 
pie Are Nee ee at nthe Pie estate, oti ad ae . 
IF CURSY= LDENTIFIER THENY 
BEGIN 
wee SEARCHS HB 22 ee ee 
IF FOUND THENZ 
BEGINS Sigat eee 
we DP THIS TD TDCLAS A a 
THISIDs IDCLASS=CONST AND HUOLEANCTHISID. FORMAL) OR& 
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ISLEVELS= =O THEN 


CURNAMEL=S"S50WRITE" 
CURNAME1s"7WRITEL” 


- CURNAME2Zs"000000N" 


CURNAME1S"400REAN" 
CURNAMEL="6READLN" 


- CURNAMELS="400PAGE™ 


CURNAME1="3000GET" 
CURNAMEL="3000PUT" 
CURNAME1S"50RESET"- 
CURNAMELSs"7REWRIT™ 
CURNAME2@="000000E" 


~.-CURNAMELa" 3JOQONEW" 
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IF 


awn TF 

IF 
END € 
———— —-—, — ——-W RITE 
END ELS 

END ELSE 
—————-—-END--OF- IDEN 
IF CURSYSBE 
IF cCURSYSIF 


CURNAME1s"707T5P08" 
CURNAME2s"000000E" 
—-CURNAME1L#"400RACK" 
CURNAME1sS"6UNPACK" 
LSE PASSPARAMS3 % 
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E BEGIN ERRORCL3)3 


IF. THISIDeIDCLASSSRPROC THENS 


THEN 
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THEN 
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THEN 
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THEN 
THEN 
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ANDS%S 
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%# **x* INTRINSIC 
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PWRITECTRUE) 
PREADCFALSE) 
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FILEHANDLINGCS) 
F ELEHANOLING(2) 
FILEHANDLINGC1) 
FLILEHANDLING( 3) 


FILEHANDLING(4) 
NEWDISP - 
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AT 


IF CURSY=REPEATSY THEN REPEATSTAT 


I F--CURSY=F0 
IF CURSYswWI 
IF CURSY=G0 


RSY~----THEN-FORSTAT - 


THSY THEN WITHSTA 
TOSY THEN GOTOSTA 


T 
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———-—_—_VALUE-—RECTABsEI 
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RSTADORS-%- ---- -- 4 
FIRSTADDR»LASTADORS% 


PROCEDURE *** 
ELSES 


ELSES 
ELSE* 
ELSE % 
ELSES 
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FORWARD34% 


cE Serre eNO ride, tetas! ptt ae nhs hee eae ae, P 
DEFINE SUBRANGE= Ake SUBRANGE DECLARATION «x* 
BEGIN Bk IO OO I TOR RIK ek kk kok 


CONSTANT CVALX 4 o-TYPE K-17 5% —--- . 
IF TYPETABICTYPEX1],FORM>CHAR “THEN. ERROR(11)3% 
IF CURSYZDOUBLEDOT THEN ERRORCS3I8% 
Septet tats ETN SMB OLE Bice eis tess 
CONSTANTCVALX29 TYPEX2)3% 
IF TYPEX1>0 AND TYPEX2>0 THEN 
ee TR TYR EXLATYPEX2 -THEN -ERRORC11) ELSES 
IF VALX1>VALX2 THEN ERROR(354)34 
TLPSTYPETABLCTYPEX1],.FORMs IF TIl=SYMBOLIC THEN T1it=SUBTYPE32 
wane NEWTYPES -TLYPESSTYPEINDEX 3S 
TaeSIZES=TSIZEt=45 TreSTRUCTS=03 TheMAINTYPES=TYPEX13% 
TYPETABICTYPEINDEX]:=T1i3% 
———-___—----PYPETAB2CTYPEINDEX]:=VALX13 TYPETAB3LTYPEINDEX] 2=VALx23% 
END OF SUBRANGE#s% 
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Ce ee es he ee us 


PRUCEDURE TYPEDECLOTTYPE* TSIZE)3 
INTEGER TTYPE*eTSIZE3% 
-BEGINY 0 2o 
PROCEWQURE TYPERRCERRNUM,» TIYPEs TSIZE)3 & 
VALUE ERRNUMsSZ 
SEER INTESER—ERRNUMs TTYPEs TSIZE3 % - 
BEGIN ERRURCERRNUM) 3% 
TTYPE:=TSrZE2=03% 
ghee ae END F Aeon oe 2 
4 
INTEGER a eee 
See BOOLEAN ET RST Sho ed ce 
% 
PACKEDSSFALSES2 
TE CURSYSIDENTIFIER THEN. | .. @*k* SIMPLE TYPE DECLARATION *** 


BEGIN Ko KK KK KK RK KERR EKER 


SEARCH3 & 
ca ee DR. FOUND.UTHENY.- oa aes 
BEGINS 
IF THISIDeIDCLASS=TYPES THEN 
ie BT Sh tle ak 2 BEGINS’ © _. : 
TTYPE3= =THISID “TYPES TSIZES=TYPETABLETTYPE). SIZE3% 
INSYMBOL3% 
wee ee ee END ELSE_IF THI SIDe ILDCLASS=CUNST THEN SUBRANGES 
ELSE TYPERRC7*TTYPEs TSIZE)34 
END ELSE BEGIN TYPERRC1sTTYPE»TSIZE)s INSYMBOL ENDJ% 
eee eee CEN De ES hte hand. 
IF CURSYSCHARCONST oR CURSY= PLUS OR CURSY=MINUS THEN SUBRANGE ELSES 
IF CURSY=LPAR THENS% 
MES Rete an URE Tae oh creat a ah Ae 
Ns=03% 
NEWTYFES Peet iGehe ots Gist: T3eTYPE&=TYPEINDEX3% 
pe et os DORE GEN Be ee eee . : 
INSYMBOL3% 
IF CURSY= TPEN TEETER THEN’ 
eee tataes dee e. 2 PUG Re, | ot tec etige. 
NEWNAME (CURNAWE 1» CURNAME 2s CURLEVEL)3 ‘ 
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pect os | NESNELR. -INSYMBOLS 2 


END ELSE ERROR(9)3% 

END UNTIL CURSYZCOMMA;% 

Wo -CURSYZRPAR—THEN -BEGIN-ERRORC46)4 SKIPCRPAR) END3% 
TLS=SSYMBOLIC? T1,STRUCT?=03% 
TL. SIZE f= TSIZEt=13 Leet Snenas 

Sia Ee EY PETABL ETYPEINDE XT 237138 
TYPETAB2LTYPEINDEyJ 2203 TYPETABSLTYPEINDEX] t2N"13% 
IF CURSY=RPAR THEN: INSYMBOL} 4 


————-———-- END-ELSES - oor ~ 
: IF CURSY=ARROW TREN See* POINTER DECLARATION *** 
esd de Sete a GEE A ae wade - Bk kak RE KK 
INSYMBOLS 
IF CURSY= JDENTIFTER [HENS 
ae BEG INA He 
HEWTYPEs TTYPE p= TYPEINDEXS TLS=POINTERSS 4 
TIASIZES=TSIZE:s13 Ti.STRUCTiAUs% 
ft ces TYPETABLOTYPEINQEXI* S113 4 
SEARCHs4 
IF FOUND THENS 
me nn oe BEG ING- : 
IF THISIO. IDCLASS= sTYPES THENS 
TYPETABLETYPETNDEY 1] ePOINTTYPE ¢=THISIDs TYPE ELSE 
epee ea cates TV PERRCfaTIY PEs Tol Zk la4 
END ELSES 
BEGING 
ee TP NUMPNTRS<MAXPNTRS. THEN NUMPNTRS&sNUMPNTRS+1 ELSE ERROR(C52)3 
PNTRTABLONUMPNTRS1]2SCURNAMELS PNTRTAB2LNUMPNTRSJ]t3CURNAMEZIS 
LENE ap pe ae 
wattle ee oes OS) END ges ee Sor is Ss ee 
INSYMBOL3 % 
END ELSE TYPERR(9,TTYPRe TSIZE I 4% 
vee ee END-OF POINTER DECLARATION ELSES 
WS 
oes CURSY= Beara THEN BEGIN PACKEDSSTRUESs INSYMBOL ENDs4 
: IF CURSY= = ARRAYSY “THEN ek ARRAY DECLARATION *** 
Bee Bek ke RR a Ra RR ek 


Sa ee a -(INSYMBOL3& - 
IF CURSY#LBRACKET THEN ERROKC47) ELSE INSYMBOLSS 
Ti=Q;3 PERS RRE2 
= - 00- BEGINS . 
IF FIRST THEN FIRST: sFALSE ELSE INSYMBOLS 4 
TYPEDECLOTX#SxX)45% 
pe te eee PR TXOO. THENG... - 
BEGING 
IF TYPETABLETX].FORM2CHAR THEN ERRORG48)3% 
re . . TLSSARRAYS3 -TL,INXTYPESSTX# TLARRTYPESRTS4 
T2:aTYPETAB2CTX1+ T3 =TYPETAB3LTX154 
IF T3"12>19022 THEN ERRURC61)4% 
coe A pees Se a a Ged eT Le SIZ ESS MING TORS2 TARTS tl 54 
NEWTYPE34 
TYPETABLLTYPEINDEXIT3=T154 
a _. TYPE-TAB2LTYPEINDEX]$2724 TYPETAB3CTYPELNDEX] t= 735% 
TIsTYPEINDEys4 
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END? % 
Qe ee ee «© END UNTIL CURSYZCOMMAs 2 
IF CURSYZRBRACKET THEN ERRORC59) ELSE INSYMBOLS <& 
[IF CURSYZOFSY THEN BEGIN ERRORC18)5 SKIPCOFSY) ENDS 
ce ee ANSYMBOLLIS . ne / : ; 
TYPEDECLOTX» SX)3% 
IF TYPETABLLTXI.,FORM2F LILES THEN ERROR(C60)34 
vere wee eee. 6 ARRSTRUCTSETYPETABLIOTXI,3TRUCTS 4 
WHILE T>Q DUS 
BEGIN: 
ee eee TAD EPYPETABAC TIS T3PsTLeARRTYPESS 
TLeARRTYPOSST xs « TLeSTRUCTPFARRSTRUCTEFARRSTRUCTH154 
TIeSIZESSSXF=MINGLO24sSXXTL, SIZE DG 
pe ee ee Ces TYPETABLO TI] E2745. TXtaTs . Ti=Tas% 
ENOs4 
TTYPESSTAS TSIZES=S5X34 
ee END OF ARRAY DECLARATION ELSE» 
% 
IF CURSY#=FILESY THEN Axwee PILE DECLARATION *x* 
Peto i ee BG LNG, eres esa SRK RRR ERE KKK KAKA KE KER 
INS YMBOLS % 
[F CURSYZ4OFSY THENS 
nn BEGIN. ERRORC1895% - --- 
[Fr CURSYZ[DENTIFIER THEN INSYMBGL3& 
END ELSE INSYMBOL+% 
ane aaa -- TYPEDECL CTX SX)34 a6 
[IF TX>?Q THENS 
BEGIN Ts=TYPETABICTX13% 
ea OO SOY RE ERE _. . IF TefFORM2FILES. THEN ERRORC50) ELSES 
IF TeSTRUCTOHL THEN ERRORC49)32 
ZNDS% 
a NEW PE SLU LIYPE SS STYPEINDEX3 4. : . 
T1isslF TeFORMSCHAR THEN TEXTFILE ELSE FILESSS 
TI,SIZESFTSIZES=SX3 TieFILeETYPESSTX3% 
ee ee EES TRUCE Eee. os a eee 
TYPETABLCTYPEINDEX) L=T13% 
ENO OF FILE DECEARNTEON eae 
ny NSE OE oee ee dhe cs Lak : : , 
IF CURSY= SSETSY THEN Axxk SET DECLARATION *** 
BEGIN BRK RIKEN EKER KKK KK 
de ee ENS YMBOL SR wos. <2 of 
IF CURSYZ#OFSY THENS 
BEGIN ERRORC18)54 
a ee ee P.CURSYDCHARCONST THEN INSYMBOLSES 
END ELSE INSYMBaOLs4 
TYPEDECLOTXsSxX)34 
Se TP EXD OLA ENB oe 
BEGING 
IF TYPETABLC TX] .FORM>CHAR THEN ERRORC 43) ELSES 
TF TY PET AB2ETy1<0.0R TYPETAB3ZET X]>38 THEN ERROR(51)5% 
ENDs% 
NEWTYPES TTYPE:=TYPEINDEXs4 
I SETS TL SETTYRPESETX3.. T1,SPRUCTIA034 
TL,SIZEs*TSiZetai1s «6 6(PYPETASICTYPEINQEXIT2FT154 
TYPETAB2LTYPEINDEX] S=TYPETAS2LTAIG2 
oe VPETABSLCTYRPEINDEX])STYPETASILTXIG4 
END OF SET DECLARATION ELSE% 
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eee ee se TR CURSYSRECORDSY THEY: 


> 


J 


) 


sexe RECURD DECLARATION *** 
BEGIN Bk aK Ra RR KR Ik 
IF LASTREC@1>CURLEVEL THEN LASTREC#SLASTREC*1 ELSE ERROR( 55734 
a REC IINX PE SLAS TREC 3-3 ----- 
BLOCKTABLREC INA}? =NUMBLOCKS $=NUMBLOCKS+13 3% 
INSYMBOLsS 
a «HI ELOLISTGRECINA® O28 3X298 5 beg 
IF SX>1022 [THEN BEGIN ERROR(S6)3 “§xt=1022 END#4 
NEWTYPES TTYPE:STYPEINDEXF 4 
nn TE SRECORDS---TL,RECTABSSRECINXS Tie STRUCTI A152 
TL.SIZE3 =TSIZE!s8X3 TYPCTABICTYPEINDEX] =T13% 
TYPETAB2CTYPEINDEXJ3 203 TYPETAB3CTYPEINDEXI]3=5xX"134% 
i PU CURSYZENDSY- THEN -BEGIW ERRORC24)3 SKIPCENDSY) ENDS 
IF CURSY=ENDSY THEN INSYMBOL4S 
END ELSE eos eee SKIP(C99) ENDS 
= END 3 Be ire on ee 
END OF TYPEDECL3& 
a 
tt Ra 0 Tas en 
PROCEDURE F IELDLISTCRECTABsF IRSTADOR+LASTADOR) 3% 
VALUE RECTABsFIRSTADORS % 
~~ INTE GER- RECTABsF-IRSTADDR»LASTADDRI 4 
BEGIN& 
INTEGER ARRAY ILISTLCO&LISTLENGTHIG% 
———--—- INT EGE R-LISTINXG% —— 
INTEGER CASETYPE » ADDR» MAXADDR» INDEXsCTYPEs TX*SXoTLeT3eLLIMsULIMs 13% 
BOOLEAN FIRST 
—-REAL---CVALB-% 
LABEL CASETYPEIDs CASEPART*EXIT#& 


--ADDR-3=F-IRSTADOR} %-—-------- -—--- 
QO BEGINS 
WHILE CURSY=SEMICOLON DO INSYMBOLs4 
wa - TL F--CURSY=CASESY—THEN GO-TO CASEPARTsI& 
IF CURSY=I]DENTIFIER THENA 
BEGIN’ 
STING 203—- FIRST PSTRUESS. 
DO GBEGINA 
IF FIRST THEN FIRSTSSFALSE ELSE INSYMBOLS4 
a CURS Ys IDENTIF IER-THENS 
BEGIN’ 
IF LISTINX2LISTLENGTH THEN BEGIN ERRUR(37)3 LISTINX$=0 ENDS% 
a LISTINXESLISTINN 133 
NEWNAMECCURNAME 4 sCURNAME2 REC TAB IS 
ee % 
= ete ee BNO NM BOGS Bis cee 3 
END ELSE 
BEGIN ERROR(C9)3% 
ER. GURSYZCOMMA THEN INSYMBOL3% 
ENDs4 
END UNTIL CURSYZCOMMAs2% 
COURS YACOLON--THEN-BEGIN -ERRORC26)3 SKIPCCOLON) ENDs 2% 
INSYMBOL#% 
TYPEDECL CTX SX) 3% 
eet he IF. TX>0-—THEN.. IF--TYPETABIC TX] eFORM2FILES THEN ERROR(57)44 
T3eIDCLASSS=VAR3; T3eTYPES=1X5% 
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FOR I:=1 STEP 1 UNTIL LISTINX 00% 
eee Nie ataat EO NR ESS et hath ed oa us 
T3eINFOSSADDR$ ADDR! =MINCADDR+SX,1024)32 
NAMETABSCRECTABsTLTST E1191 =T33% 
ee ee 2 ee — 
ENDS % 
END UNTIL CURSY#SEMICOLONS 
isi eases LNG ADDR SADORS ES - a uate cout ee 
GO TO EXITs% 


a 
oo oe PRO PAR aeabeas ee es 
LISTINX?=0$ LASTADDRE=ADDR3 INDEX?="15% 
INSYMBOL3% 
IF —CURSYSIDENTIFIER. THENS. ~~ ~ 
BEGINS 
SEARCH$% 


~~~. -— - 1 F--FOUND.-AND-THISIDsIOCLASS=TYPES THEN GO TO CASETYPEIDs% 


NEWNAME CCURNAMEL*CURNAME2ZsRECTAB)S INDEX#STHISINDEXG4 
INSYMBOLS % 
ace aa CE Te eETe IF—CURSY4COLON- THEN ERROR(26)44 
INSYMBOLS32 
IF CURSY= PONT ATES TREN 
pe ee BG ON goat ee a peitath Weck aak fe 
SEARCHS% 
IF FOUND THENS 
Sib Nesi et Ce SBIR GUN Roc cee a Be ee eee 
IF THISID» IDCLASS= TYPES THENS 
BEGIN’ 
ww --_ CASETYPETOsCASETYPESSTHISIDe TYPEs. TLt=TYPETABICCASETYPE) 54 


LLIM@=TYPETAB2LCASETYPEJ3 ULIMS=TYPETAB3ECASETYPE]3% 


IF TleFGRM>CHAR THEN ERRURC438)33 
vsseke S. ww LEI NDEX2 O..HEN ZW oo. 
BEGINS 


T3eIDCLASS2SVARS T3eTYPES=CASETYPES T3eINFOQ?= 
ee . —. ADDRSELASTADDRAZADDRELI WAMETABSZCREC TABS INDEX] = 


ENDZ& 
INSYMBOLs% 
eo ee ee END ELSE BEGIN ERRORC723 SKIPCOFSY) ENDG4 
END ELSE BEGIN FRRORC1)3 SKIPCOFSY) END#4% 
ENO ELSE BEGIN ERROR(9)4% SKIPCUFSY) ENDS4% 
END. ELSE. BEGIN ERRORC9)3 SKIPCOFSY) ENDS 
IF CURSYZGFSY THEN BEGIyW ERRURC18)2 SKIPCRPAR) ENDS 2 
IF CURSY=OFSY THEN [NSY“BOLS4 


ADDRs& 
T334 


oe TR CASE TYPE RO. THEN BEGIN LLIMS="*MAKINTS ULIMS=MAXINT ENDSS 


DO BEGINS 
WHILE CURSY=SEMICOLON O00 INSYM30L34 
-— TCURSYSCHARCONST.OR CURSYSPLUS OR CURSYSMINUS THENS 


BEGINA 
FIRST&=TRUES 4 
dope Spe ee ee DOCHE GINS - 


IF FIRST THEN FIRST?=FALSE ELSE INSYMBOL3% 
CUNSTANTCCVALs CTYPE )3% 
poten” CTYPE SOS HENS =u 
BEGINS 
IF CASETYPE=0 THEN CASETYPE?=CTYPE ELSES 
ce ee DR CVALELLIM. OR CVALZULIM THEN ERRORC14) ELSES 
CHECKTYPESCCASE TYPEsCTYPE)3% 
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oe 


IF LISTINX2LISTLENGTH THEN BEGIN ERRURC30)% LISTINX$=0 ENDS% 
plaaieumiecee tk a LE STINXERLT STING HLS 2 


ILISTCLISTINXI]#sCVALS [#5134 
WHILE ILISTLIIJ4cVAL DO Ltalt+ ish 
Baa ae eae -IF--ISLISTINY THEN-ERRORC 31754 


ENDS 
END UNTIL CURSYZCOMMAs% 
mane = TF CURSYACOLON- THEN-BEGIN ERKOR(26)5 SKIPCLPAR) END#S 
IF CURSY=COLON THEN INSYMBOLs4% 
IF ae LPAR THENA 
ee BEGINA weet ee 
INSYMBULS FIELDLISTCRECTAS, ADDRsMAXADDRI 34% 
IF MAXADDR>LASTADOR THEN LASTADDRi=MAXADDRIS - 


a eee - TF CURSYZRPAR -THEN--BEGIN ERRORC46)3 SKIPCRPAR) END#% 
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INSYMBOLs% 
END ELSE EReenoe ys 
———_——-—--- END#%- ~ - ee . 
END UNTIL CURSY NEG SENICOLONS & 

EXIT3% 
——--——-END--OF-FIELOLIST#2& Stee 
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----—~---RRUCEDURE DECLAREVARSCPARAMs TABsFIRSTsLASTsLEVEL Is 
VALUE PARAM*FIRSTsLAST»LEVELsS 
INTEGER ARRAY TABLOJ3% 
pa INTEGER FIRST*LAST*LEVELI&-- -- 
BOULEAN PARAM3% 
BEGINS 
we eee [INTEGER LEVEL 1000s TYPeNAMPNAMTASST Le Te JeRECSIZESS 
BOULEAN REALVARs ARRAYVAR*SFIRSTDIMSEXTFILES% 
ALPHA FNAME3% 
eee ee  ENTEGER FNLENGTH*FNSTART? & 
3 
LEVELIOOOSSLEVELx10003% 
ee ee POR OL ESEERSTOSTEP 1. UNITE: LAST 00% 


BEGINS 
NAMP=TABCII.£09210]5 NAMTAB?PSNAMETABSCLEVELPNAMIS& 
ee TYR SNAMTAB, TYRES --- TLS TYPETABICTYPI34 
IF NAMTAB.IDCLASS GE@ FUNC THEN’ 
BEGINS 
wee eee Ue TF OREALVAR GR-ARRAYVAR THEN 
BEGINA 


GENC™S "so 15734 
we / REALVARS SARRAYVAR SE SFALSES & 
ENDs% 


02904 
02905 
02906 
02907 
02908 
02909 
02910 
02911 
02912 
02913 
02914 
02915 
02916 
V2917 
02918 
02919 
02920 
02921 
02922 
02923 
02924 
02925 
02926 
02927 
02928 
02929 
02930 
Q2934 
02932 
02933 
02934 
02935 
02936 
02937 
02936 
02939 
02940 
02941 
02942 
02943 
O2944 
02945 
02946 
O2947 
02948 
Q2949 
02950 
Q2951 
02952 
02953 
02954 
02955 
02956 
02957 
02958 
02959 
02960 


OP GOR: ae 3 ae 8 


O 


O 


Moore Business Forms, Inc. sv 


&S & 6s 


. o *O 


6 


IF NAMTAB.IDCLASS=FYyNC THEN GENC"REAL's594)3% 
be ee GENCUPROCEDUSB, 1033 
GENIDC"V" sLEVEL1OO0+NAMs5)3 GENC™S%5157)3% 
ENO ELSEZ 
ret EP Pe STRUCT EO THEN beak SIMPLE TYPE x4 
BEGINS 
IF ARRAYVAR THEN BEGIN GENC"3"5157)3 ARRAYVARS=FALSE ENUSS 
LE LREALVAR THEN GENCe%s197) ELSEX 
BEGIN GENC"REAL"s594)3 REALVARS=TRUE END3% 
GENIOC*V" SLEVEL1000+NAM05)5 % 


Dee AEE Oui 3.8 jie JEAN e MEAS Emacs, git Sars 
BEGINe 
IF REALVAR THEN BEGIN GENC™S"s497)3 REALVAR?:=SFALSE ENDS% 
ee ee eee ee EF OTL eFORMSEILES TREN. ; eke ARKAY/RECORD *** 
BEGINS 


TF ARRAYVAR THEN GENC"s"s127) ELSES 
we ee ----BEGIN GENC™ARRAY's6s3)3 ARRAYVARSSTRUE ENQDS% 
GENTOC™V"sLEVELLOGO+NAMs5)5 GENCE %s 197 )5% 
ARS OTe URE Pe 
ne -DG -BEGIN@. - 
IF FIRSTDIM THEN “FIRSTOL T=FALSE ELSE GENC "Spl 573% 
GENINTCTYPETAB2CTYP])54% 
see ee ee PNT PARAM THEN er <2 
BEGIN GENC™3"s41,7)3 GENINTCTYPETAB3CTYP]) ENDS% 
TYPS=IF TisFORM=ARRAYS THEN T1eARRTYPE ELSE REALTYPE3% 
mn ee TL PS TYPE TAB LC TYP13 S- 
END UNTIL TieSTRUCT=03% 
GENC™I]"s157)5% 
ete apelin aie aac tyes PEIN le Ome. sae | yl tea tes tet. 
BEGIN Baeax FILE ex 
IF REALVAR OR ARRAYVAR [HEN% 
cee eee BEGINOGENC Mts 12.702 REALVARS =ARRAYVARS =FALSE ENDS % 
IF TieFORM=TEXTFILE ANDO NUT PARAM THENS 
BEGIN¢ 
ie ota ie th oN M ED LE SSMAXEELES: THEN “ERROREO7 12% 
ELSE NUMPEILESS=NUMFILES+13% 
te ee aNAMS % 
os ee ee SEND ee tee Ms eigen fh, ne 
EXTFILES =FALSE3S 
FNAME s=NAMETABICLEVEL pNAMI3% 
oa ee FNL ENGTH. 8 NAMES NAMELENGTHS. FNSTART $= B=FNLENGTHS &% 
IF FNLENGTR LEQ@ 6 THEN & 
"BEGING 
So Se ei a eh ORGS Sy SI eh UNELE. NUMEXIE ICES ‘DOs 
IF FNAMESEXTFILETABLY) THEN EXTFILESSTRUESS 


ENDS % 
a TEXTE ILE--ANQ NOT--RARAM THEN | 
BEGINS 
IF NUMFILES GEQ MAXFILES THEN ERROR(97)% 
Saati aes ee erp Be 1 Sad = = o, Beltaet 
NUMFILES t= NUMFILES + 13% 
FILETABCNUMFILES] ?= “NAM ~ 13% 


cee ee ee ee ee GENO ™DEFRINE tts 79 2)3 - GENLOC™F"SZLEVELILOOO+NAM,5)3% 
GENC"="s197)3% 
: GENCFNAMEsFNLENGTHsFNSTART)+ & 
a ee 2. GENOME S220 6)5 GENCTSAVEN (504 3 GENC™FILE"s 594 )3% 
GENCFNAMEsFNLENGTHsFNSTART)3 & 
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END ELSE% 03018 


Hoth See ee GT NE: ace 03019 
a GENCFILE" #594), GENIDC"F™sLEVELLOOO+NAMs 5) 3% 03020 
END3% 03024 

SS Se POND PAR AME THEN Ge, ode ao 03022 
BEGINZ 03023 

GENC” DISK",63)3 GENC™SERIAL"s722)3% 03024 
nn REX TRELES THENR - 03025 
BEGIN% 03026 

IF ALGOLCNT LSS 13 THEN WRITEALGOL#% 03027 
we GENE EOTO I 95 9.3)5% 03028 
GENCT™"",1,7954% 03029 
GENCFNAME,FNLENGTHeFNSTART)3 % 03030 

BE es eat as RENE MG PNG oe CENCE ae eee 03031 
IF ALGOLCNT<9 THEN WRITEALGOL3% 03032 

GENCM'M,1,7)3 GENCUSER#7s1)3 GENCU™™, 157) 5% 03033 

can END ELSE 2 cee ce eee 03034 

BEGINS 03035 

GENCM LAO Te $494) 7 GENC™300I1%44,4)3% 03036 

aa ae eas AE NDS bak eater ae eet 03037 
GENC™C 1)" a35 5)3 03038 

RECSIZE:sIF Tie FORMSTEXTFILE THEN 10 ELSES 03039 

Se ee a ee TR ORYPETAGLLT Io ILETYPEISSTRUCTEO THEN 4 ELSES 03040 
TYPETABSCTIeF LLETYPEI“TYPETAB2CT1L + FILETYPE] 414% 03041 

GENINTCRECSIZE)3 GENC™s"s157)5% 03042 
I F-RECS TZ ES-OR~RECSIZES10 THEN GENINTC150)% - . 03043 
ELSE GENINTCRECSIZE)3% 03044 

IF ALGOLCNT LSS 10 THEN WRITEALGOLS% 03045 

Pe ppcenet es ae it a GEN Cts SAVE Ce 6a ge) = GENE" 30" 9956.) 5% 03046 
GENC'I3%s296)3% 03047 

END ELSE GENC'3"5457)3% 03048 

a GEN CMARRAY 9.65 373. - GENLOCTV™ S LEVEL LOOO+NAMS 593% 93049 
GENC™Ls197)3% 03050 

IF TYPETABIET1«eFILETYPE]+STRUCT=O THENS 03051 

Se eae eee a Ne ee 03052 
IF PARAM THEN GENC"O"s127) ELSE GENC"0%0%»3,5)34% 03053 

END ELSE% 03054 

Sheree sg oot CE GEN Ye ook ee te 03055 
GENINT(TYPETAB2(T1L«FILETYPEI)3% 03056 

IF NOT PARAM THEN% 03057 

a ee BEG IN GENCE Modo 703 -GENINTCTYPETAB3SCT1LeF ILETYPE]) ENDS% 03058 
ENDS % 03059 

GENC")3%,256)32 03060 

pe GENCHINTEGERN, 89 193-—. GENIDO™L™s LEVELILOOO+NAMS5S 32 03061 

GENC™S ote 7 25% 03062 

END3% 03063 

PEND Patan wins eneOedaee se Ob ta- n° de 03064 

END OF LOOP3% 03065 

IF REALVAR OR ARRAY VAR THEN GENCMIM SLOT IEG 03066 

Sar OF--DECLAREVARS$%- —~-- oo a 4 2; 03067 

03068 

03069 

PROSE AURE-DRRENETPaCIenIE Stohr en v 03070 

BEGINS 03071 

INTEGER FIRSTPARAMs CURK IND» Pls PX le T3% 03072 

iat —--BOOLEAN--F.LRST3.%— eis 03073 
% 03074 


CO 


0 


- 
id 


5} 
) 


4 
\ 


Y412T 
a 


Moore Business Forms, Inc. sv 
Ce SG (te ao 


e 


C) 


Q 


= 


DEFINE NEWPARAM=% 


Apes Soe Be GI Need ee ap: 
| IF NUMPARAMS2MAXPARAMS THENS 


BEGIN ERROR(70)3 NUMPARAMS? =MAXPARAMS#10 ENDS 
Serra NUMPARAMS $=NUMPARAMS4134---—  - - 
END OF NEWPARAM#3% 
% 
——-----_-—-NEWPARAM$ .-FIRSTPARAMs=NUMPARAMS# % 
IF CURSY=LPAR THEN2 
BEGINS 
wn —DO- BEG INR eee 
INSYMBOL-+ 4 
IF CURSY=VARSY OR CURSYSFUNCSY UR CURSY=PROCSY THENS 
Se eet re GU Nigar GG: Aha sealed. Po * oa 
CURKIND&=1F CURSY=SVARSY THEN VAR) ELGES 
IF CuRSYs Saas THEN FUNC ELSE PROC3% 
eee ee me ENS YMBOL DB - ee eee = 
END ELSE CURKIND: =CONST3 % 
FIRST&=TRUES P4t=NUMPARAMS+13% 
SBEOUCBEGINY ak 38 
IF FIRST THEN FIRSTISFALSE ELSE INSYMBULsS% 
IF CURSY=IDENTIFIER THENS 
genet ace meen t, ie tN eae Rk ease 
NEWNAME ( CURNAME 1» CURNAME 2s CURLEVEL# 1233 
=THISINDEXS PX,PARAMKIND?RCURKINDS% 
Sos Sian cee cls ey fo ee 
NEWPARAMS PARAMTABLNUMPARAMSI2=PX34% 
END ELSE ERRORC9)3% 
en nnn ee INS YM BOL 2H 
END UNTIL CURSYZCOMMAS% 
IF CURSY=COLON THEN% 
Se ee BE GINA a eee ee, eS : 
IF CURKIND= PRQC THEN ERROK(90)3 
INSYMBOL3% 
—-—- —--] F--CURSYSIDENTIFIER- THENS.- 
BEGINZ 
SEARCHSs % 
Fee i eee DP ROUN Oo THEN Sees tee 
BEGIN’ 
IF THISID,IDCLASS=TYPES THEN 
ic Ss atitae eaten A Da ae ees 
STHISIDsTYPES% 
nar l3=p1 STEP 4 UNTIL NUMPARAMS DOS 
Sele ae it ee a Mtietee “03 PARAMTABLI.J.PARAMTYPE 8 =733% 
IF CURKIND=CONST OR CURKIND=VAR THENS 
BEGIN’ 
a pien Bi Gs Wola ner eee eo ET PETROL Cod Bae cs 
IF TeFORMPFILES THENS 
FOR ITs=Pi STEP 1 UNTIL NUMPARAMS DO 
te oie oe ewecev inn eae UPAR AMT ABELL Je PARAME TiE Sly se 
IF T.STRUCT>O AND CURKIND=CONST THEN ERROR (94)3% 
END ELSE IF TeSTRUCT?0 THEN ERROR(38)3% 
pee ee ee  ENDUEL SE. BEGIN ERRORC7 23 T3!=0 ENDA4 
EWD ELSE BEGIN ERRORCI)4 T3!=O0 ENDS4% 
END ELSE BEGIN ERROR(9)4 13350 ENDS 
ee a EWS YMED LB os el ee bate de Od) 
ENO ELSES 
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030386 
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Q30914 
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03094 
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031014 
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03104 
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03106 


03107 


03108 
03109 
03110 
O3111 
O3i1e2 
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BEGINS 


Prien Se ee eee IF CURKINOZPRQC THEN ERRON(7)4% 


T32=2034 
ENDs% 
aie TSR IDCLASSSECURKINGS 2 ‘TasPURMALSELIS 
FOR I:=P1 STEP 4 UNTIL NUMPARAMS DO% 
NAME TAB3CCURLEVEL+1,PARAMTABLCI J] +PARAMNAME)] 3=T33% 
Jo tel SEND UNTIL CURSYZSEMICOLONDA 
IF CURSYZRPAR THENS 
BEGIN ERRGR(46)3 SKIPCRPAR)#4 
ee oe be bee PP CURSY SRP AR] THEN INSYMBOLS 2 
END ELSE INSYMBOL;% 
END3% 
oe -PARAMTABLFIRSTPARAM] &=NUMPARAMS*FIRSTPARAMs & 
ENO OF PARAMETERLIST#% 
% 
PROCEDURE BLOCK3% 
BEGINS 
we INTEGER INDEX CTYPE sNUMPORWARDSs To T3eT Xe 15% 
REAL CVAL3% 
ALPHA C1sC23% 
+ -- BOOLEAN--VALUEPARAMS ys F-UN3 & - 
LABEL START3% 
% 
ee INTEGER -LABTABTOP»CONSTTABTOP»TYPETABTOP »PARAMTABTOPsTOPREC>& 
FORMERFIRSTLABsFIRSTFILE3 % 
% 
aon FORMERF IRSTLABLSFIRSTLABSS 
LABTABTUPS=NUMLABS3 FIRSTLABS=LABTABTUP+13% 
CONSTTABTOP:=NUMCONSTS#32% 
se eee TY PETABTOP-2 SNUMTYPES3 3-— -- 
PARAMTABTOPs =NUMPARAMS3& 
TOPREC2=LASTREC33% 
———--———-- - F-ERSTFILE 2 =NUMF-ILES+13%-- 
% 
TOPLEVEL2=CURLEVEL3¢ 
ete eee ee LF CURLEVELDL.THEN. GENC BEGIN 2 623)5% 
START3% 
IF CURSY=LABELSY THEN 
sien SES Pieaaets | Rediiend os agenesis B EGI N oe 7 ak 
GENCMLABEL"s623)3 
DO BEGIN% 
niu ddnohe wae welded cS Y MAUL © Ae : 
IF CURSY=INTCONST THEN®% 
BEGINS 
ica isis Sean Dhaest oO oe GENTE NL te CUR VAL REE eo 
IF CURVAL>9999 THEN ERRUR(33)3% 
FOR It=FIRSTLAB STEP 1 UNTIL NUMLABS 00% 
ee es TF LABTABLID.LABVALSCURVAL THEN ERROKR(31)3% 


%ee* LABEL DECLARATION ««s 
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IF NUMLABS2MAXLABS THEN BEGIN ERROR(34)5 NUMLABS#=0 END34 


NUMLABS2=NUMLABS+154 
woe ee eee eee LABTABCNUMLABSI] S=CURVALIS 
INSYMBOLS% 
END ELSE BEGIN ERROR(10)% SKIPCCOMMA) ENDs& 
ce eee TE CURSY=COMMA- THEN GENC™ 2s 197 )5% 
END UNTIL CURSYz#COMMAs& 
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IF CURSyZSEMICOLON THEN BEGIN ERROR(25)4 SKIPCSEMICOLUN) ENDJ% 


Sti eC NCEE Tee 
| IF SYMKINOCCURSYI4INITIAL THEN INSYMBOLS% 


END OF LABEL DECLARATION 4 
7 Ae hs Mie eis oe - eee . 
IF ‘CURSY= CONSTSY. TREN. &*eke CONSTANT DECLARATION *x% 
BEGIN Bk kk RE KK RE KKK RR AKI KK RRKK 
coer nee ween ne tee nee ee INSYMBOL SS 
DO BEGIN! 
IF CURSYSIDENTIFIER THENA 
So Se eee BEGIN Buse. 3 once eos 
NEWNAME (CCURNAME 1 sCURNAME2, CURLEVEL)3 INDEXsS=THISINDEX3% 
INSYMBOL 3% 
es TPO CURSYFEQLSY. THENE 
BEGIN4 
INSYMBOL3 CONSTANTCCVAL CTYPE )3% 
sp ee ead DST SEROTYPES Fae LUCLASSS =CONS Tae 
IF CVAL.»£46%8)70 OR CVAL>1023 THENS 
BEGINS 
we ee ee DP CNUMCONSTS2MAXCONSTS THENS 
BEGIN ERRORC35)3 NUMCONSTS!50 ENDsS 
NUMCONSTS&S=NUMCONSTSt+13% 
wee ee eee ee ne «CONSTTABLNUMCONSTSIS=CVALE% 
T3.INFO2=1023+NUMCONSTS3% 
END ELSE T3.INFOs=CVAL+4 
a ee ee NAME TABBDCURLEVEL ZINDEX 2=T35% 
END ELSE BEGIN FRROR( 36735 SKIPCSEMICOLON) END32 
END ELSE BEGIn ERROR(9)3 SKIPCSEMICOLON) ENDS 
cesses DPF CURSYZSEMICOLON. THEN BEGIN ERROR(25)3 SKIPCSEMICOLON) END#S 
IF SYMKINDECURSyYJZINITIAL THEN INSYMBOLsS4 
END UNTIL CURSYZIDENTIFIERs& 
EE NDOF CONSTANT. DECLARATIONS. - 
4 ; 
IF CURSY#TYPESY THEN &eee TYPE DECLARATION *x* 
Bece foes cool RPG Nese Me coho Moen 8 ee tee. cae REKRKKREREEKEKKRAEKRKEKKE KKK 
INSYMBOLS% 
DO BEGINS 
ne eee AF CURSYSLDENTIF IER. THENA 
BEGINS 
NEWNAMEC CURNAME1»s CURNAME@s CURLEVEL 23 INDEX 3=THISINDEX3% 
ct ees » INSYMBOLGAS ..... a 
IF CURSY= FQL SY THEN 
BEGINS 
oe de ee eo ee EN SY MBOULS Se: 
TYPEDECL(CTYPE® TX)3 % 
T3t=CTYPE; TS.,IDCLASS#FTYPES3% 
we ee  NAMETABSDCURLEVELs INDEX] 2=133% 
END ELSE BEGIN ERRORC36)3 SKIPCSEMICULON) ENDs% 
END ELSE BEGIN ERRORC9)3 SKIPCSEMICOLON) ENDS¢ 
—IFUCURSYZSEMICOLGN THEN BEGIN ERRORC2573 SKIPCSEMICOLON) ENDS 
IF SYMKINDECCURSYIZINITIAL THEN INSYMBOL34 
END UNTIL CURSYZIDENTIFIERs& 
ENDL OFTYPE.DECLARATION3% .L.. 
% 
IF CURSY=VARSY a beek VARLABLE DECLARATION *x** 
ie a AS __._ BEGIN Wet NS od th See ot ae ee oss See Brew e maa K ARK KKEK KK KKK EK 


VARINDEX 25033 
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DO BEGINS 


a Mutat woes (Sue ae PRS TVAR CRAB ENDE 413-8 


DU BEGINZ 
IF CURSY=VARSY OR CURSY=COMMA THEN INSYMBOLS% 
le ee See TE CURSYS.LDEN TIE TER:-THENS 
BEGINS 
IF VARINDEX2LISTLENGTH THENS 
Hn BEG EN-ERROR (37-3 -VARINDEXS=0 ENDSZ 
VARINDEXt=VARINDEX+13% 
NEWNAMECCURNAME 1s CURNAME2sCURLEVEL 3 & 
pe ee ees a VARICES ELVARENDEX I-42 0H LS INDEXES 
INSYMBOL3% 
END ELSE BEGIN ERRORC9)s SKIPCCOLON) ENDS% 
EN D-UNT-IL- CURSYZCOMMAS S -- 
IF CURSYZCOLON THEN BEGIN ERRUR(26)3 SKIPC(COLON) END#% 
IF CURSY=COLON THEN% 
ah SS pe B & GIN % spel Ae Se eh ra at a 
INSYMBOL3 % 
TYPEDECL(CTYPEsTX)34 
Mpeaies TS eS CTY PE fT 3g TOCLASST SNARS Bao 
FOR lt=FIRSTVAR STEP 1 UNTIL VARINDEX DO% 
NAMETAB3SCCURLEVEL»VARLISTCIJIs=7T35% 
oeere Seernarel ENO -ELSE--BEGIN-ERROR(¢26)3 SKIPCSEMICOLUN) END3% 
IF CURSYZSEMICOLON THEN BEGIN ERRORC25)3 SKIPCSEMICOLON) END#% 
IF SYMKINDLCURSYIZINITIAL THEN INSYMBOL3% 
Se See os ENDGUNTIL. CURSYZIDENTIFIE RS Sc< 
DECLARE VARSC(FAL SE» VARLI ST» 1s VARINDEX» CURLEVEL) 3% 
END OF VARIABLE DECLARATIONS: ® 
Ne Panett a ad = 
IF NUMPNTRS>O THEN% 
BEGIN® 
- ———-C-- BCURNAMELS..- C2; = CURNAME 23S | - 
FUR Its STEP 41 UNTIL NUMPNTRS DO2 
BEGINS 
CUR NAMELS SPAT RTABAL LIS. --CURNAME2S=PNTRTAB2LII3% 
SEARCHTABCCURLEVEL)}% . 
THISIDISNAMETAB3CCURLEVEL» THISINDEX] 3% 
LE. FOUND AND-THLSID. LOCLASS=TYPES THEN. 
TYPETABLEPNTRTAB3LIIJePOINTTYPES=THISIO«TYPE ELSE ERRUR(62)3% 
ENDS % 
ee CURNAME 14-50 13- © CURNAME23.5C23-—-NUMPNTRS$ 503% 
ENDs% 


a 
WHILE CURSYSFUNCSY OR. CURSYSPROCSY DO_4*** PROC/FUNC DECLARATION *** 
BEGIN PAT CCC CLOCC CCT COSC CTC CCL ee 
FUNS=CURSY=FUNCSY3 INSYMBOLJ% 
een TE CURSYSIDENTIFIER--THEN®---- 
BEGIN’ 
SEARCHTABCCURLEVEL)34 
aa ee THIS-TORENAMETAB3SLCURLEVELs THISINDEXI]3% 
IF FOUND AND THISI]DeIDCLASS2PROC THENS 
BEGIN 
See ~[NDEMPS THIS TNDEXS &:- 
IF THISID sFORWARDDEF= 1 THENS 
BEGIN’ 
a ee oe NAME-TABBLTHISLEVEL»s THESINDEX] eFORWARDDEF §=03% 
NUMFORWARDS#=NUMFORWARDS@134 
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IFCTHISID,IDCLASS=PROC AND FUN)ORS 
Se Sear --—~- (THISID ,LOCLASS=FUNC AND NOT FUN) THEN ERROR(C43)3% 
INSYMBOLS & 
END ELSE BEGIN ERRORC2)3 SKIPCSEMICOLON) ENDs% 
Se eo SEIN DLE LS Rees a ee eee ak 
BEGINA 
NEWNAMECCURNAMEL*CURNAME2sCURLEVEL)4 INDEXt=THISINDEXs4 
a 123903. T34-NF OS SENUMPARAMS4+13% 
T3eIDCLASS:=IF FUN THEN FUNC ELSE PRUC#4% 
NAMETAB3CCURLEVELs INDEX] t=T3s% 
ee eT NSYMBOLS. PARAMETERLISTO€ . _. 
IF CURSY=COLON THENZ 
BEGINS 
wee eee we F.NOT FUN THEN ERRORC48) 34 
INSYMBOL#Y 
IF CURSY= i TRENS 
nn ee -BEGING --- - 
SEARCH; % 
IF FOUND THENS 
ne ee -BEGIN@ -—-. —--— 
IF THISID»IDCLASSSTYPES THENS 
BEGINS 
ee ee eee se TS EY PETABLLIHES IO“ TYPED 3% 
IF TeFORMSALFA UR TeFORM=POINTERS THENS 
BEGINA 
ee ee NAMETABSCCURLEVEL 2 INDEX] ¢ TYPE? =THISIDe TYPES% 
END ELSE ERROR(38)34 
END ELSE ERROR(7 144% 
etd eines, 2. TEND OBLSE. ERRORCIIs € 
END ELSE ~RROR(9)F& 
INSYMBOLS¢ 
a ee ee END ELSEIF FUN. THENR.- |... 
BEGIN ERROR¢26)3 $K LPC SEMICOLON) ENDs% 
ENDs& 
ee ENDUE LSE. BEGIN ERROURC ODS SKIPCSEMICOLON) ENDS 
IF CURSYZSEMICOLON THEN BEGIN ERROR(25)3 SKIPCSEMICOLUN) END 34 
IF FUN THEN GENC"FUNCTN"'27s2) ELSES 
ee ee GENCUPROCEDU' 2 Be 1)0....GENIDO"V"s LOCOXCURLEVELTINDEXs 5) 44 
Te=NAMETAB3(CURLEVEL»INDEXJeINFOS TxtaT+PARAMTAB(TI4& 
IF TX>T THENS 
Bea ee eee eens BEGIN? 2450. ex = 
GENC™(Ma Le 7K 
FOR ITtT+1 STEP 1 UNTIL TX O04 
a ee BEGIN. GENTOO My 1 Q00xCCURLEVEL+L)+PARAMTABECI].PARAMNAME,5)32 
IF BOOLEANCP ARAMTABCII] +PARAMFILE) THEN’ 
BEGINS 
si eh Mas etersiel fon aN tg pop Po) Gece hoe 
“GENIDC"F", 1000X(CURLEVEL+1 )+PARAMTABL 1 J. PARAMNAME 95 )3 
GENCs%o4,7903% 
cee ee eee =~ GENTOO ML, 1O00xCCURLEVEL+1)+PARAMTABLCI J] +PARAMNAME 25 )3% 
END 34 
IF I] LSS TX eM sauces e197 d3% 
Peed ich oe Sy ene Se We feeds 
GENC™ 93%) 29693 :% 
VALUEPARAMS 2=F ALSE3% 
Buiter es, oe PER AS TeP UNTIL. Te G4 
IF FARAMTABCI ]«PARAMKIND=CUNST THENZ 
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Q3309 
03310 
O3311 
03312 
03313 
033144 
03315 
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03320 
03321 
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03323 
03324 
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03329 
Q3330 
03334 
03332 
03333 
03334 
03335 
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H3537 
03338 
Q3339 
03340 
03341 
03342 
03343 
03344 
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03346 
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BEGINS 
felepratan tata Ostet etal aoa Bik IF NOT VALUEPARAMS. TREN® 
BEGIN GENC™VALUE"2 Gs 3)34 
VALUEPARAMS?=TRUES4 
ENN ELSE- GENO 2 M9 1 7254 
GENTIDC"V",s1000xCCURLEVEL +1 )+PARAMTABLIJ. PARAMNAME?5 )3% 
ENDs 4% 
ee eee TRV ALUEPARAMS THEN-GENC™S "5197034 
DECLAREVARSCTRUEsPARAMTABsT+1 eT XsCURLEVEL+1 5% 
END ELSE ee a a 
-—-———_—-- - f-—--- Seas. Jake ele 
INSYMBOL3% 
IF CURNAME1="7FORWAR™ AND CURNAME2@="D" THEN 
oe BEGGING 
NAMETAB3CCURLEVEL» INDEX) « eFURWARDDEF ts142 
NUMFORWARDS2=KUMFORWARDS #232 
mr men oH GENCUPORWARD™ 5821752 - 
INSYMBOLs 2 
END ELSES 
nee BEGGING ne 
CURLEVELS=CURLEVELt+134 
IF CURLEVEL2LASTREC THEN ERROR(55)3% 
ee ee. BLOCKTABLCURLEVEL ).2=NUMBLUCKSSSNUMBLOCKS+15% 
=CURFUNCS CURFUNCS=SIF FUN THEN INDEX ELSE w13% 
BLOCK: geek COMPILE PROCEDURE BODY *** 
oe ee ee REPLACE POINTERCNAMETASLCCURLEVELs*]) BY O% 
FUR MAXNAMES+1 WORDS#4 
CURLEVELS=CURLEVEL™13 CUKFUNCI=Ts% 
pen nn ee TOPLEVEL SS CURLEVELSA- - - - 
END3% 


IF CURSYZSEMICOLOUN THEN BEGIN ERRUR(C25)5 SKIPCSEMICOLON) ENDs% 


sipctlonns ioc er GEN Cs ig le Vee cee oles 
If SYMKINOLCURSYIINITIAL THEN INSYMBOL3% 
END OF Beene PE CHRO TAIN? 
See eR eae ot ete ie 
4 
IF NUMFORWARDS>O THEN ERROR(44)3% 
a eo EAB ENCITINTEGERS + B04 Jee 2 <2 
FOR Ii=i STEP 4 UNTIL. MAXTEMPS Oy 
Been GENTIOC™T"sIs2)3% 
ce = DL RMAXTEMPS.- THEN GENCTtA% 2127) ELSE GENC™S "9 497)328 
“ENDS 
IF Mieyeeeetney THEN 
eine IBEGINKPRRORT SOI 8. < 
WHILE SYMKINOCCURSYIZINITIAL DOs 


BEGIN INSYMBOL3 SKIPCSEMICOLON) ENDS: 
ne ee ee EF CCURSYSTYPESYIORCCONSTSYSCURSY AND CURSYSPROCSY) THEN’ 
GO TO START3& 
END#% 
subdir the SCURLEVER SL. -THENG aa) se<< 
BEGINS 


GENC™INITO"s523)5% 
ee UPI NPUTOECL. THEN GENC’TRUEN2 494) ELSE GENC"FALSE"2 523234 
GENC™) S222 6)5% 
ENDS 4 
a OR-DSSFIRSTFILE- STEP -1 UNTIL NUMFILES 004 
IF FILETABLI] LSS 9 THENS 
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BEGINS 
eee. -GENC"CHFIL (269 2)33.. 
SE e ounce ey ee ee NDEIASE Irie 
GENC)3%s226)3 
eel ttle eat Me ONIN on) co 
ELSES 
BEGIN 
vo ee GENT DCI, LOOOXCURLEVELFFILETABLI125)3% 
GENC™."ots7)3 GENC"BUFSIZE"* (2103 GENCTS=805%55,3)5% 

END34 

ws | NUMPILESS SF LIRSTFILE# 13% 


COMPSTAT3 See COMPILE STATEMENT PART «%* 
Lea en nY Seen evens eee eee atm itseed Yk ee «ahs b: : 
FOR ItsLASTREC STEP 1 UNTIL TOPREC@1 DOz 
REPLACE POINTERCNAMETABILCI+*)) BY O FUR MAXNAMES+1 WORDS3% 
ae FORT SSF IRSTLAB STEP 1-UNTIL NUMLABS NO& 
IF LABTABCI]eLABDEFsO THEN ERRORC93)7% 
LASTREC!=TOPRECS % 
amen sees lune oe 
FIRSTLA =F ORMERF IRSTLAB? % 
NUMCONSTS$ =CONSTTABTOP3% 
whee UNUMTYPESESTYPETABTOP# Becca sue 24 
NUMPARAMS $=PARAMTABYOP3 % 
IF CURLEVEL>1 THEN CENCHEND UAE grads 
eee tee END e eS GLUCK. tee ‘ 
$ PAGE% cn 
LLELYLRYESLSLELYE LLL ELG YELL LEBEL ELE REBEL SED CLLEEBEEELEELELELERELELRELBBS 


See Bie. Ben eS 


% 
4 
% x 
Bo RARTUO$. THE MAIN PROGRAM, % 
% Sel eelaatelalettetatatetatate z 
% x 
% 
& 
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eget Rae mE iah tees Nn Ml Calne te, Alaa 


LE BLU LEU SELLE LEE USE HELA EEX ELLY EE LELELELELELL ELL DELEERELEELEBERERELEELDESS 
feat Me Sieh inline a Dt ad celachitaiciy meee Miata end tee 
% 
INTEGER PROGNAMELENGTH3 % 
ALPHA PRUGNAMEsALGOLNAMESS - 
% 
ALGOLNAMES="PASCOOONBENTIERCTIMEC4SIMUD 1O0)C172526)5% 
—--—--—-—-- ALGOLNAME S=ALGOLNAMESENTIERCTIMEC4 Oly 7ICL1ISt6ls% 
ALGOLNAME?=ALGOLNAMERENTIERCTIMEC4 MOD 9)[585%6]4% 
USERS=TIMEC@1)3¢% 
wee EI LL PASCALGOL WITH. ALGOLNAMEsUSER34 
BEGIN 
FILE PASCRUN DISK SERTAL Be EEC noi (22100150)4% 
debs eee AAR A Y= BURLOS9I9 Bone = 
LABEL EGFs% 
% 
eoWAT EE STAUE 2p 0 Re wien cos. eee Gee cee 
BEGIN2 
READCPASCRUNs9sBUFE*J) CEGFIs4 
ere ee _WRITECPASCALGOLs102BUFL*I 25% 
END3% 
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EQF 2% 


4 -END--OF- TRANSFER OF RUN TIME SYSTEM32 
ai] CARDLENGTH!=723% 


INITIALIZE# NEWCARDS% 
LI STOP-T-LON? =CHECKOP-T-IUN+=TRUES&— —--- - 
Cre" 3 IWSYMBOL JS 
IF CURSYSPROGRAMSY THENY 
BEG ING oo ne ee 
INSYMBOL 3 % 
If CURSY=IDENTIFIER THENS 
--BEGINS—- ~ seen 


PROGNANE? =CURNAME Le (354 3633 ~ PRUGNAMELENGTH? 


INSYMBOL3 % 
ue est COURS TEL PAR AEN se -eieee 
BEGIN2 
DO BEGINS 
Jor NS NOES ee eee 
IF CURSYSIDENTIFIER THENS 
BEGINY 


=MINCGsCURLENGTH) 44 


woe ee TE. CURNAMELSUSOINPUT-! THEN TNPUTDECLSSTRUE ELSES 


IF CURNAMEL="60UTPUT™ THEN QUTPUTDECL?= 


BEGIN’ 
a ee aie CURLENG THs 6s THEN ERRURC, (a2 
NUMEXTFILESs=NUMEXTFILES +L 3% 
IF NUMEXTFILESSHMAXEXTFILES THENS 


TRUE ELSES 


Se eed BR PELE AB ENUMEXTE (LES 1s =CORNAMEL ELSE @ 2 
IF NUMEXTFILESSMAXEXTFILES+) THEN ERROR(73)5% 


ENDs4 
So ee ENDAEL SE MER RORC GDS Bees 
INSYMBOL 2% 
END UNTIL CURSYAZCUMMA; % 


~— IT F--CURSY-ARPAR—THES -BEGIN-ERROK(46)3 SKIPCSEMICOLON) ENDs% 


IF CURSY=RPAR THEN INSYMBOL3% 
IF CURSYZSEMICGLON THEN BEGIN ERROR(25)3 


SKIPCSEMICOLON) ENDS 


Seat ee END--ELSE..BEGIN. ERRORC58.)35.-SKIPCSEMICOLON) ENUsS% 


END ELSE BEGIN ERRORC9)s SKIPCSEMICOLUN) END#% 


END ELSE BEGIN ERRORC75)3 SkIPCSENICULON) ENDS 
TNOVMBOL Rect acidoact he peo, ee 
CURLEVEL*=17% 

LASTRECS=MAXTABLES+1 3% 


4X ELELLEEALEEEG LEER EL EL REL AEEEL SRL DDBE DER MBBR EAD EDLALEEBEERAEEADDLADLDS 
a a 


BLOCK; 4 COMPILE USER PRUGRAM. 


aes cP Bat mest saat aly 


SEELLBKZUEUBVHLERUSKUB BRAG SE GES bALLRRKRERBEYRELEEREEBLV BRE BLBRLLEKSG 


e *CURSY #D0T THENS 
BEING renee cone, eee Uyeda 
ERROR(76)3% 
pO BLUCK UNTIL CURSY= =DOT#s 
a eee ice rn ig. «ses 
IF FALSE THENS 
BEGINY 
-ENOOFINPUT-2--ERRORC8Z)3---CHARCN[2= 913% 
WRITECLINES» TERMMESS)3% 
END3% 
TRL IS TORTLION.-AND.-CHARCNT20- THEN PRINTLINES & 
IF ERRINX>0 THEN PRINTERRORS3% 
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PAN 


WRITECLINESLDBLI)3% 


ec aettaeWR ETE CLINE SD BN a Se ees le coke ae 


IF NUMERRS=O THENS 
BEGIN’ 


% 


-~ARRAY ZIPARRAY[O81920 Zf0%017 4% oO. . 
POINTER ZIPPNT#% 


ee PER ENEY ZIPTEXTCTERT pS 


BEGINS’ 
ZCOJSSTEXTS & 


= - REPLACE ZIRPNTEZIFPNT-BY. POINTERCZO*#1)+¢8"L) Poh; Les 


y 
a 


END#+2 


PROCEDURE. ZILPNUMCN)3.. -S TRANSFERS A NUMBER TO THE ZIP BUFFER. 
VALUE Ni INTEGER N3& 
IF NS9 THEN ZIPTEXTCN®1) ELSES 


———-BEGIN.ZIPNUMCN. DIV—-1.0.)3.ZIPTEXTCENTIERCN. MUD 10)21) ENDSS 
% 


WRITEALGOLS% 


ae GWRIETECPASCALGOls LAST INE JF 


——— ZIRT EXTON, Lj. 


LOCKCPASCALGOL »SAVE )3% 
ZIPPNTS=POINTERCZIPARRAYL*])3% 


-REPLACEZIPPNTBY .! I FOR.20 wOKDS3% 


WRITECLINES»NOERRORS)3% 
ZIPTEXTC"CC "53)3 ZIPTEXTC"COMPILE"» 793% 
-- » ZIPTEXTCPRUGNAME»s PROGNAMELENGTH)3% 
ZIPTEXTCUSERS7 )5% 
ZIPTEKXTC™ "405% 


ZIPTEXTC™/"51)3 
ZIPTEXTC™ XALGOL"+7)3 


ee - TP SAVEPRACTORD GO. THEN... ZIPTEXTC LIBRARY 9 795% 


IF SAVEFACTOR<O THEN ZIPTEXTC™SYNTAX"26)5% 
ZIPTEXTCNS se 15% 


sete te A PPIER IAAL GUL G0 eee ZIRT ERT OY FILE 57% 


ZIPTEXTCALGOLNAME® 7)3% 
ZIPTEXTCUSER® 7) 5% 


ZIPTEXT(™ CARD=E"s6); 
ZIPTEXTC™/ 51 )3 


—ZUPVEXTC! SERLALM 73.0... .. ZIPTEXTO"s 215% 


IF SAVEFACTOR>O THENS 
BEGIN& 


inl ZIRT EXT OM SAVES" 55 2.07 PPNUMCSAVEF ACTOR) $% 


ZIPTEXTC"S "915% 
END3% 
ee 
ZIP WITH ZIPARRAYC*]3 


END OF CUMPILER ZIP ELSES 
Sees BEGUN R32 is Bie 


ve a A ce tt 


INTEGER Ts SZ 
SWITCH FORMAT ERRORMESS1 %s% 


OW ee COMPILER ERROR *%* CONTACT THE COMPUTER CENTRE," )9% 
cr ot IDENTIFIER NOT DEFINED» ")s% 
(" 2 IDENTIFIER ALREADY DEFINED.) 5% 
a RONG NUMBER OF . PARAMETERS.) 5% 
C*™ 4&4 SYNTAX ERROR.) e% 
C* 5S VARIABLE NaT ACCESSIBLE (HARDWARE RESTRICTIUN) oe") % 
wi. 6 .STRINGS MAy NOT .BE.CONTINUED FROM UNE CARD TG ANUTHERe")s% 
(" 7 A TYPE EXPECTED") s& 
C' § VARIABLE EXPECTED.) 2% 
8% 9 LDENTIFIER -EXPECTEDs")24 


(" 10 INTEGER CONSTANT EXPECTED«") +z 
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q" 14 


be ee ee - .¢ a 12 


c" 13 
q" 14 
a a a EN 
q" 16 
C" 417 


Ce ee rm anrenten Sa: vee 


c" 19 
ct 20 


CONSTANT Of GTHER TYPE JHAN EXPECTED s") 2% 
VARIABLE OF ILLEGAL TYPE.") 2% 

UNRECOGNIZABLE STATEMENT, ") 5% 

CONSTANT TOO BIG OR TOU SMALL.) 5% 

UNDEF-INED LABEL o")s% 

FOR™ AND CASE™STATEMENTS NESTED TOG DEEP.")s% 
EXPRESSION IS GF WRONG TYPE es") 5% 

aM LAGs Ae EXPECTED.) 9% 

emer) (piers EXPEC TED. ty) pd 

MHMEL SEM WITHOUT CORRESPONDING "" "THEN. ) 5% 


a ee OT. 24--ILLEGAL TERMENATION GF STATEMENT) "22% 


C" 22 
C" 23 


as ciple (aE es (-19- 2 4- 3 


eee eee ¢ tr. 30 


eee eat ae eg ys, 


Bvt Sealants, @ TNO Go 


Fea ATER LE 


Eri Gem Secon ete GI os 


c’ 44 


Sie et ee ee ae 


qt 46 
q" 47 


Re ria amen fae: 


cq" 49 


Se ee a sea SE 50 
¢ tt 5 1 
¢ " 5 2 
an a 53 
cw 5 4 
¢ " 5 5 
Ser ct alter Al TG 
Gee g 
SoH 
ID 


VMOMUNTILUM EXPECTED "29% 

MNT OME HOMO GWNTOM! EXPECTED.) 9% 
MIMEND MIM EXPECTED, %) 2% 

mong EXYDECTED ett) + % 

tenes gre tene EXPECTED se") 24 


-MHUTHENN MN EXPECTED eo" 9% - 


fetter s thee EXPECTED.") 26 
ONLY NUMBERS MAY BE SIGNED.) 5% 


~- TOO MANY CASES, %) 9% 


LABEL USED MORE THAN ONCE.) 5% 
CONSTANT EXPECTED.) 9% 

LABEL-NOT IN RANGE -0669999.")s% 
TOG MANY LABELS DECLARED,") 2% 
TON MANY CONSTANTS DECLARED.) 5% 
Tet Tees EXPECTED." )a& 

THE LIST IS TOG LANG") #% 
INVALID TYpE FOR A FUNCTIONS") s& 


MUMBEGING EXPECTED") 2% 


TOO MANY IDENTIFIERS DECLAREDs") 9% 

ALFA CONSTANS MAY NOT BE LUNGER THAW 7 CHARACTERS.) 2% 
-EXPRESSION IS. NOT OF TYPE BOOLEANe") 2% 

NOT PRUPER FORWARD DECLARATION. ") 2% 
UNSATISFIED FORWARD DECLARATION,")s% 

TOO. MANY DIFFERENT.TYPES DECLARED.) 9% 

teaver) orseny EXPECTEDe™) 2% 

Heeney Ly te tees EXPECTEDs" dod 

A SIMPLE TYPE EXPECTED+")s&% 

HIM ARRAY OF ARRAY" AND HEM ARRAY OF RECORp tt ILLEGAL"s% 
" AS FILE TYPE.) 9% 

“UVHPILeE GF FILE". 1S ILLEGAL.) 0% 

SET BOUNORY IS TOO BIG UR TUDO SMALL oe") 5% 

TOO MANY UNDECLARED POINTERS ,") 5% 

mms nn EXPECTED, ")s% 

FIRST VALUE IS GREATER THAN SECOND VALUE") »s% 
TOO MANY RECORDS DECLARED AT ONE TIMEs")s% 
THE-RECQRD CONTAINS MORE THAN 1023 WORDS,") 5% 
FILES NOT ALLOWED IN RECORDS.")9% 

rere Cnt EXPECTEDe") o% 

_ Vetta avin EXPECTED es") 3% 


pegs FORMAT ERRORMESS2 $22 


me ee O80 -.- 


c" 64 
Cc" 62 
ped ee Shs bo a EN OO: 
C! 64 


NMMARRAY OF FILE" NOT ALLUWED.")s4 

RANGE OF INDEX IS GREATER THAN 10236") 5% 
UNSATISFIED POINTER DECLARATION, ") 9% 

EXPRESSION IS -TOO. LONG.")2% 

ILLEGAL OPERATOR FOR THIS TYPE OF EXPRESSIQNe") 9% 
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(" 65 INTEGER EXPRESSION EXPECTEDe") »% 03645 
(Geli te oe Se OG UPSET CXPECTE Ds" Vek 03646 
(" 67 PARAMETER OF ILLEGAL TYPE.) 5% 03647 
( 68 PROCENURES NOT ALLOWED IN THIS CONTEXT,»") 5% 03648 
een wa (.69-.-ILLEGAL USE OF. THIS. TYPE OF IDENTIFIER.) 9% 03649 
C" 70 TOO MANY PARAMETERS DECLARED IN THE PROGRAMe') s% 03650 
Ct 71 WhHARRAY OF CHAR" EXPECTED.) 5% 03651 
ea O72. WRONG TYPE. OF SET EXPRESSION, ") 0% 03652 
(* 73 TOO MANY EXTERNAL FILESe") 5% 03653 
C(" 74 ILLEGAL IOENTIFIER FOR EXTERNAL FILEo") 9% 03654 
ee ee CLT OM MOPROGRAMUNM EXPECTEDe aS. 03655 
Ct 76 fH EXYDECTED AT END OF PROGRAM.")»% 03656 
(" 77 EXTERNAL FILE IDENTIFIER MAY NOT EXCEED 6 CHARACTERS e") 9% 03657 
po eee OM 7B ILLEGAL. FILE PARAMETER e™) 9% 03658 
Cc" 79 ILLEGAL USE OF FILE HANDLING PROCEDURE,") 5% 03659 
C" 80 TEXT*FILE €XPECTED.")24 03660 
eae ee i -(%. 81-- POINTER VARIABLE EXPECTEDs") 2% 03661 
(" 82 ONLY VALUES OF TYPE REAL» INTEGER OK CHAR MAY BE READ)") 5% 03662 
(* 83 VARIABLES IN RECORDS ILLEGAL IN THIS CONTEXT.) 9% 03663 
- a . BA. DISPLAY. OVERFLOW.) 9% 03664 
C*" 85 READ AND WRITE MAY ONLY BE USED ON TEXT"FILES.»") 9% 03665 
(" 86 REFERENCED OQBYECT IS TOU BIG."),% 03666 
nee ee BT ENDSORSINPUT DISCOVERED +") 9% 03667 
(" 88 CHARACTER ARRAY EXPECTED,")e% 03668 
Ch B89 "HH, EYDECTED,") 5% 03669 
- (19 0- -PROCEDURES- MAY NGT HAVE ANY TYPE,%)2% 03670 
(* 91 PARAMETER OF WRONG KINDe™) 4% 03671 
(" 92 ONLY COMPLETE ARRAYS AND RECORDS MAY BE TRANSMITTED.) 9% Q3672 
cep ee = O93. DECLARED LABEL NOT USEDs")s% 03673 
(" 94 PARAMETERS OF THIS TYPE SHOULD NOT BE VALUE PARAMETERS.) 2% 03674 
C" 95 ASSIGNMENT OF STRUCTUREY VARIABLES NOT IMPLEMENTED." )2% 03675 
OI LNPUT/OUTPUT. NOT. DECLAKED.) 9% 03676 
(" 97 TOO MANY FILES IN USE.) 9% 03677 
(" 98 RECORD IDENTIFIER EXPECTEDs") 5% 03678 
we O99 UNRECOGNIZABLE ITEM.) 2% 03679 
(3% 03680 
% 03681 
aa ac SR CRONE Ian Aiea 2 Pia es cee ee 03682 
WRITECLINESsERRORSsNUMERRS) 3% 03683 
FOR 13=0 STEP 1 UNTIL 59 OO IF ERREI] THENS 03684 
WRITE CLINESs,ERRORMESS10)I)33- 03685 
FOR 1560 STEP 1 UNTIL 119 DU IF ERRE I) THENS 03686 
AE ees een eon & 03687 
ENDL OR ERROR MESSAGES33 .... 03688 
IF XREFOPTION THEN 03689 
BEGINS 03690 
——- ——-~— RE PLACE-POINTERCXREFLINEC*).). BY " " FOR 17 WORDS3% = 03694 
HEADINGS &% 03692 
= OREGE RaN TARE GS SHEL E TEE 207 A REE N Amr ARE Pe OME ABET 2 0007 gU00 Irs 03693 
Sei (NOS Yoo ene eee Poacees 03694 
END OF “COMPILER, % 03695 

LABEL UCOQUCOOOQOU0LINE 00176362CC EX O/RSCOMMON=15FILE S=ELPASO/819005 DISK SERIALSZENDe 0 /R 
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